IDENTIFICATION 

PROQUCT CODE I DEC-S8-QRTSA«B-LA 
PRODUCT NAME I RTS-8 PAPER LISTING 
DATE CREATEDI SEPT,,1975 

MAINTAINERI SMALL SYSTEMS SOFTWARE ENGINEERING 


COPYRIGHT (C) 1974,1975 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS, 

THIS SOFTWARE IS FURNlSHIO UNDER A LICENSE FOR USE ONLY 
ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH 
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS 
SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PRO¬ 
VIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO 
THESE LICENSE TERMS, TITLE TO AND OWNERSHIP OF THE 
SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC, 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM¬ 
MITMENT BY DIGITAL EQUIPMENT CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY 
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY 
DEC* 
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1 

2 

3 

A 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 
30 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 


/PARAMETERS FOR RTS*S TASKS (VERSION 2) 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT (C) 1974,1975 BY DIGITAL EQUIPMENT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
✓AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
/CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT, 

/ 

/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
/UNDER A LICENSE FOR USE ON A SINGLE COM»UTER SYSTEM AND CAN BE COPIED 
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT VOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIOED IN WRITING BY DIGITAL. 

/ 

/DIGITAL equipment corporation assumes N) responsibility FOR THE USE 

/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
/DIGITAL, 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

✓ 

/ 
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45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 


/RTS8 V2 EXEC PARAMETERS * EDITED BY USER 

0001 PDP8E■l 
0000 POP 12*0 
0001 EAE«1 
0001 PWRFAL * 1 
0030 HGHFLD* 30 
0023 NTASKS»23 
0001 CHECKPT«l 
0000 PARTNS«0 

/(THE N PARTITIONS ARE NUMBERED FROM 0 TO N«l) 
/COMMON TASK NUMBERS • EDITED BY USER 

/IT IS ADVISABLE TO DEFINE ALL TASKS HERE. NAMES given BELOW 
/ARE USED BY SOME SYSTEM TASKS AND SHOULD BE DELETED FROM THIS 
/LIST IF THE CORRESPONDING TASK IS NOT INCLUDED IN THE SYSTEM 


63 

0001 

CLOCKM ... 

64 

0002 

PWRF.2 

TTY.3 

65 

0003 

66 

0004 ' 

LPT.4 . , ,,_ 

67 

0005 

mcr*5 m oor i 

68 

0006 

LTA.6 

69 

0007 

OTA.7 

SWAPPER.21 

Rk8>10 

70 

0021 

71 

0010 

72 

0011 

RF08"11 

73 

0012 

DF32«12 

74 

0013 

CSA.13 

75 

0014 

CSAF * 14 

76 

0016 

ICS*16 

77 

001 7 

R X 8 A ■ 1 7 

78 

0023 

OS8. MASKS 

79 

0020 

0S8F «20 

80 

81 


/SOFTWARE PARAMETERS 

82 

83 


IFDEF 038 

84 

0002 

0SFLDS.2 

8b 

0030 

OSKBDV.30 

86 

0031 

OSTTOV-31 

87 

0010 

0SSYSD.RK8 

88 

0004 

0SFILL.4 

89 


> 

90 


IFDEF MCR 

91 

0001 

MCRSYS.l 

92 


> 

93 


IFOEF CLOCK 

94 

0000 

CLKTYP.0 

95 

0020 

CLKQLN.20 

96 


DECIMAL 

97 

0170 

HERTZ*120 

98 

0074 

SHERTZ *60 

99 


OCTAL 


c(° ' ^ 
^ - S 
-A5XS 


Cl 


PZ * 


/2> 

n 


EDITED BY USER 


P 
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tea 

lei 

1*2 

103 

104 


» 

IFDEF 

0010 SYSaRKS 
0000 SUNITae 


SWAPPER < 
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105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 


/EQUIVALENCES! 

7344 AC7776* CLL STA RAL 

7346 AC7775» CLL STA RTL 

7330 AC4000. CLA STL RAR 

7350 AC3777a CLL STA RAR 

7332 AC2000a CLA STL RTR 

7326 AC0002■ CLA STL RTL 

/MONITOR CALL VALUES! 

20 

24 

25 


116 

4020 

CAL* J MS 

117 

5424 

POSTDSa JMP I 

118 

4425 

WAITMb jms I 

119 



120 



121 



122 

0000 

SEND* 0 

123 

0001 

RECElVa 1 

124 

0002 

WAITE* 2 

125 

0003 

RUN* 3 

126 

0004 

SUSPND* 4 

127 

0005 

POST* 5 

128 

0006 

SKPINS* 6 

129 

0007 

DERAIL* 7 

130 

0010 

BLKARG* 10 

131 

0011 

SENOw* U 

132 

0012 

UNBARGa 12 

133 

4000 

FREE* 4000 

134 



135 


IFDEF 

136 



137 



138 


/TASK STATUS f\ 

139 


140 

4000 

NQNRMT* 4000 

141 

2000 

FFWT« 2000 

142 

1000 

RUNWT* 1000 

143 

0400 

SwPWT* 0400 

144 

0200 

EORMWT* 0200 

145 

0100 

USERWT* 0100 

146 

0040 

ENABWT* 0040 

147 

0020 

*SGWT* 0020 

148 

0010 

NETwT* 0010 

149 

0001 

ONE wT* 0001 


/CALL THE EXECUTIVE 
/DISMISS AN INTERRUPT 
/WAIT FOR MULTIPLE EVENTS 


/NOTE! "♦♦" MEANS CRITICAI VALUE MAY NOT 

/BE CHANCED WITHOUT MODIFY.' NC SYSTEM CODEll 

/SEND MESSAGE 

/RECEIVE MESSAGE 

/WAIT FOR EVENT FLAG 

/CONTINUE TASK EXECUTION 

/SUSPEND TASK EXECUTION 

/POST AN EVENT FLAG 

/INSERT COOE INTO INTERRUP1 SKIP CHAIN 
/INITIATE END-ACTION 

/block task for reason specified in arg 

/SEND MESSAGE AND WAIT 

/UNBLOCK TASK FOR REASON SPECIFIED IN ARG 
/**FREE PARTITION 

DC <AO*0|DO* WDI*2|GC*3»EC*4/RC*5 

OCa67ECTa7|CSal0|OCTal 1 |AI» 12 > 


/♦-NONRESIDENT task wait 
/EVENT FLAG WAIT 
/SCHEDULE WAIT 
/♦♦SWAPPER WAIT 
/EVENT FLAG OR MESSAGE WAIT 
/USER SPECIFIED WAIT 
/ENABLE WAIT 
/MESSAGE WAIT 

/NETWORK WAIT (RESERVED FOR POSSIBLE FUTURE USE) 
/♦♦DOES NOT EXIST WAIT 




I 


/PARAMETERS FOR RT3*8 TASKS 
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150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 


/SYSTEM LOCATIONS! 


1176 

1244 

1367 


1414 

1420 

0043 


MSGTBL" 1200*2 

TSTABL* NTASKS+2*2+MSGTBL«4 

TFTABL* NTA3KS"2*4"TSTA8L«1 


/TASK MEHSAGE TABLE 
/TASK STATE TABLE • HOLDS 
/TASK LINK,UH # 0F,IF,PC,AC,MO 
/TASK FLAGS TABLE • HOLDS 
/TASK STATUS FLAGS 

/RESIDENCY TABLE 
/PARTITION TABLE 
/SWAPPER COMMAND BUFFER 


IFDEF SWAPPER « 

RESTBL" TFTABL*NTASKS*2 
PARTBL- NTA3KS«SWAPPER*2*RESTBL+3S7774 
C0MMAN0«43 


0035 

TSWFLG* 

35 

0036 

TOOL" 

36 

0037 

TODH* 

37 

0040 

DATE" 

40 

0041 

MCREF" 

41 


/TASK SW INHIBIT FLAG ]N FIELD 0 
/LOW OROER TIME OF DAY IN FIELD 0 
/HIGH ORDER TIME OF DAY JN FIELD 0 
/DATE IN 086 FORMAT IN FIELD 0 
/MCR START EVENT FLAG IN FIELD 0 


5 


/PARAMETERS FOR RT3*8 TASKS 
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169 


/TASK TABLE SETUP * "TASK", "CUR 

170 


/MUST BE DEFINED BY TASKS 

171 





172 


1240 

*TASK“2*MSGTBL 


173 

01240 

0000 

ZBLOCK 2 

/MESSAGE 

174 


1350 

*TA3K*4fTSTABL 


175 

01350 

0000 

CURX10+CUR 

/INITIAL 

176 

01351 

1605 

START 


177 

01352 

0000 

0 

/INITIAL 

178 


1410 

"TASK+TFTABL 


179 

01410 

1000 

INIWT 



"INIWT" AND "START" 


/MESSAGE BUFFER IfITIALLY CLEAR 



/SWAPPER TASK FOR RTSS V2 


1 80 
iei 
182 

183 

184 

185 
18b 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 
204 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 


PAL8.V90 
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8/30/74 


CHANCtl F0RCE 0FF SWPWT AND FORCE ON NONRWT 
1JUN.75 FIX GROSS BUG IN NON.CHECKPOINTING VERSION 
19.JUN.75 FIX BUG IN CHECKPOINTING VERSION 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT (CJ 1974,1975 BY DIGITAL EQUIPMENT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

'™ E f!!! 0R !! ATI0N IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
/CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT, 

/THE SOFTwm DESCRIBED IN THIS DOCUMENT IJ. FURNISHED TO THE PURCHASER 
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDIO IN WRITING BY DIGITAL, 

/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIEO BY 
/DIGITAL, 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


/SWAPPER TASK 

FOR 

RTS8 V2 


229 


0021 


TASK* 

230 


0000 


CUR« i 

231 


1000 


INIWT* 1 

232 


0000 


FIELD i 

233 


0043 


.COMMAND 

234 

00043 

2033 


INIT 

235 

00044 

2080 


XFREE 

236 



/ 


237 



/PARTITION TABLE 

238 



/MUST 

be initial; 

239 



/DON'T 

FORGET TO 

240 



/ 


241 


1420 


.PARTBL 

242 


1600 


PAGE 
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SWAPPER 

0 

RUNWT 


/BY SHAWN 7 '25/74 


/MUST BE FIliLO 0 


/ENTRY POINT FOR INITIALIZATION 


(PARTBL) ENTRIESI 


"/" FROM LICES USED 




I 


i 


O 


/SWAPPER TASK FOR RTSS V2 
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243 


0021 


NRTABK'SWAPPERM 


244 



LOOPNX, 

IFZERO 

hghpld «ion> 


245 

01600 

2342 


I3Z 

NXTFLG 

/BUMP TP T A»L POINTER 

246 

01601 

2343 


182 

NFLAGS 

/AND TASK COUNTER 

247 

01602 

5211 


JMP 

LOOPON 

/CONTINUE IF ANY TASKS LEFT 

246 

01603 

4020 

SWAPEX, 

CAL 



249 

01604 

0004 


SUSPNO 



250 



START, 




251 

01605 

1377 

SWAPON, 

TAD 

(NRTA8K4TFTABL 


252 

01606 

3342 


DCA 

NXTFLG 

/POINTS ^O NEXT TFTABL ENTR' 

253 

01607 

1376 


TAD 

(NRTASK»NTASKS 


254 

01610 

3343 


OCA 

NFLAGS 

/TPTABL INTRY OVERFLOW COUN* 

255 

01611 

1742 

LOOPON, 

TAD I 

NXTFLG 

/GET A FLAG WORD 

256 

01612 

0310 


ANO 

KSWPWT 

/KEEP ONLY THE 8WPWT BIT 

257 

01613 

7650 


SNA CLA 


/THIS TAf K IN SWPWT! 

256 

01614 

5200 


JMP 

LOOPNX 

/NO! TRY NEXT TASK 

259 




IFZERO 

HGHFLO «XOF> 


260 

01615 

6202 


IPN2RO 

HGHFLO «CXF CUR> 

261 

01616 

1742 


TAD I 

NXTFLG 

/GET THE FLAG WORD 

262 

01617 

1375 


TAD 

(•SWPWT 

/LESS THE SWPWT BIT 

263 

01620 

7450 


SNA 


/TASK RUNABLE NOW! 

264 

01621 

5225 


JMP 

GOTONE 

/YESf RESIDENCY CANDIDATE 

265 

01622 

1335 


TAD 

KNRNT 

/NOf FLAG HIM NONRESIDENT 

266 

01623 

3742 


DCA I 

NXTFLG 

/AND TRY SOMEONE ELSE 

267 

01624 

5200 


JMP 

LOOPNX 


268 



GOTONE, 

IFZERO 

HGHFLO «XON> 


269 

01625 

1342 


TAD 

NXTFLG 


270 

01626 

1374 


TAD 

(•TPTABL 


271 

01627 

7104 


CLL RAL 


/TASK NUMBER TIMES 2 

272 

01630 

1373 


TAO 

{•NRTASK-NRTASKpRESTBL 

273 

01631 

3344 


DCA 

PTR2 

/POINTS TO RESTBL WORD 1 

274 

01632 

1744 

UNBUSY, 

TAD I 

PTR2 


275 

01633 

0372 


AND 

(7774 


276 

01634 

3345 


DCA 

PTR3 

/POINTS TO PARTBL WORD 1 

277 

01635 

1745 


TAD I 

PTR3 


278 

01636 

7010 


RAR 


/PARTITION BUSY BIT TO LINK 

279 

01637 

7430 


SZL 


/PARTITION BUSY! 

260 

01640 

5312 


JMP 

CHKPT 

/YES 1 CHECKPOINT 

281 

01641 

7004 


RAL 



262 

01642 

3363 


OCA 

LEVEL 

/SAVE 10 DRIVER ARG2 

283 

01643 

2344 


ISZ 

PTR2 

/POINTS TO RESTBL WORO 2 

284 

01644 

2745 


ISZ I 

PTR3 

/FLAG PARTITION BUSY 

285 

01645 

2345 


ISZ 

PTR3 

/POINTS TO PARTBL WORD 2 

266 

01646 

1745 


TAD I 

PTR3 

/GET PARTITION ADDRESS 

287 

01647 

3364 


DCA 

CORADR 


286 

01650 

2345 


ISZ 

PTR3 

/POINTS TO PARTBL WORD 3 

269 

01651 

1745 


TAO I 

PTR3 


290 

01652 

7450 


SNA 


/ANYONE HOME? 

291 

01653 

5272 


JMP 

NORITE 


292 

01654 

3346 


DCA 

PTR4 

/POINTS TO RESTBL WORD l 

293 

01655 

1346 


TAD 

PTR4 


294 

01656 

7040 


CM A 


/COMPARE WITH SAME POINTER 

295 

01657 

1344 


TAD 

PTR2 

/FOR NEW RESIDENT 

296 

01660 

7650 


SNA CLA 


/SAME TASK? 

297 

01661 

5300 


JMP 

NOREAD 

/YES! NO “ASK 10 


/swapper task FOR RTSS V2 
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298 

01662 

1746 


TAD I 

PTR4 

299 

01663 

7010 


RAR 


300 

01664 

7620 


SNL CLA 


301 

01665 

5272 


JMP 

NORITE 

302 

01666 

2346 


ISZ 

PTR4 

303 

01667 

1746 


TAD I 

PTR4 

304 

01670 

3365 


DCA 

DSKADR 

305 

01671 

4346 


J MS 

SENDIT 

306 

01672 

7150 

NORITE, 

CLL CMA 

RAR 

307 

01673 

0363 


AND 

LEVEL 

308 

01674 

3363 


DCA 

level 

309 

01675 

1744 


TAO I 

PTR2 

310 

01676 

3365 


DCA 

08KA0R 

311 

01677 

4346 


JMS 

SENDIT 

312 

01700 

7240 

NOREAD, 

CLA CMA 


313 

01701 

1344 


TAD 

PTR2 

314 

01702 

3745 


DCA I 

PTR3 

315 

01703 

1745 


TAD I 

PTR3 

316 

01704 

1371 


tad 

(NRT ASK + NI 

317 

01705 

7110 


CLL RAR 


316 

01706 

4020 


CAL 


319 

01707 

0012 


UNBARG 


320 

01710 

0400 

KSWPWT, 

SWPWT 


321 

01711 

5205 


JMP 

SWAPON 

322 




IFOEF 

CHECKPT < 

323 

01712 

7326 

CHKPT, 

STL CLA 

RTL 

324 

01713 

1345 


TAD 

PTR3 

325 

01714 

3346 


DCA 

PTR4 

326 

01715 

1746 


TAD I 

PTR4 

327 

01716 

3366 


OCA 

PTR1 

328 

01717 

1766 


TAO I 

PTR1 

329 

01720 

7012 


RTR 


330 

01721 

7620 


SNL CLA 


331 

01722 

5200 


JMP 

LOOPNX 

332 

01723 

1366 


tad 

PTRl 

333 

01724 

7140 


CLL CMA 


33a 

01725 

1344 


TAO 

PTR2 

335 

01726 

7630 


SZL CLA 


336 

01727 

5200 


JMP 

LOOPNX 

337 

01730 

1366 


TAD 

PTRl 

338 

01731 

1371 


TAO 

(NRTASK+Nf 

339 

01732 

7110 


CLL RAR 


340 

01733 

4020 


CAL 


341 

01734 

0010 


BLKARG 


342 




> 


343 

01735 

4000 

KNRWT, 

NONRWT 


344 




IFDEF 

CHECKPT < 

345 

01736 

7240 


STA 


346 

01737 

1745 


TAO I 

PTR3 

347 

01740 

3745 


DCA I 

PTR3 

348 

01741 

5232 


JMP 

UNBUSY 

349 




> 


350 




ifndef checkpt « 

351 



CHKPT, 

CLA 


352 




JMP 

LOOPNX 


/"WRITE ME" BIT TO LINK 
/NEED TO WRITE CURRENT OCCUPANT! 
/NOI READ IN NEW OCCUPANT 
/POINTS TO RESTBL WORD 2 
/AC-OISK ADDRESS FOR WRITE 


/AC3777 

/CLEAR THE WRITE BIT 


•RESTBL 

/CLEAR HXS SWAP WAIT 

/RESCAN PROM THE TOP 
/AC0002 


/POINTS TO OWNER'S RESTBL WORD l 

/"CHECKPOINTABLE" BIT TO LINK 
/IS HE CHECKPOINTABLE? 

/NOI NEXT REQUEST 


/COMPARE RCSTBL POINTERS 
/NEWCOMER HIGHER PRIORITY? 
/NOI NEXT REQUEST 


•RESTBL 


/FLAG PARTITION "FREE" 



S93 



> 

354 

01742 

0000 

NXTFL6, 0 

355 

01743 

0000 

NFLAGS, 0 

350 

01744 

0000 

PTR2, 0 

337 

01745 

0000 

PTH, 0 

35$ 



PTR4, 

339 

01740 

•000 

SENDXT, 0 

300 

01747 

4020 

RETRY, CAL 

301 

01730 

0011 

SENOW 

302 

01731 

0010 

070 

303 

01752 

1737 

8Y8M80 

304 

01753 

1366 

TAO ERRORS 

305 

01754 

7630 

SNA CIA 

300 

01753 

3746 

JMP X SENOIT 

347 

01734 

5347 

JMP RETRY 

360 

• 1757 

0000 

SYSHSGf ZSLOCK 3 

369 

01702 

0000 

UNIT, SUNXT 

370 

01703 

1763 

LEVEL, • 

371 

01704 

1764 

CORAOR, ( 

372 

01703 

1765 

DSKAOR, , 

373 



RTR1, 

374 

01760 

1766 

ERRORS, • 

375 

01771 

6430 


370 

01772 

7774 


377 

01773 

1350 


378 

01774 

6411 


379 

01775 

7400 


380 

01770 

7777 


381 

01777 

1411 


382 


2000 

PACE 


II 


/SWAPPER TASK FOR RTS8 V2 
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383 


0032 

TASKX* 

32 


384 


0042 

T ■ 

42 


385 






386 



/ 



387 



/THE FOLLOWING 

CODE IS ACTUALLY 

PART OP Thi: executive 

388 



/HOWEVER, IT RESIDES HERE FOR COMPATIBILITY WITH VERSION 1. 

389 



/ENTER WITH ION 

, AC*0, LINK »OON 

*T CARE, SAVE STATE ON INTERRUPTS 

390 



/ 


391 

02000 

0000 

XFREE, 0 


/FREE UP A PARTITION 

392 

02001 

1032 

TAD 

TASKX 

393 

02002 

1377 

TAO 

(•NRTA8K 


394 

02003 

7510 

SPA 


/THIS TASK LOWER PRIORITY THAN SWAPPER? 

395 

02004 

5600 

JHP I 

XFREE 

/NO 1 BAO FREE COMMAND 

396 

02005 

7104 

CLL RAL 



397 

02006 

1376 

TAD 

CRESTBL 


398 

02007 

3042 

OCA 

T 

/POINTS TO RESTBL WORD t 

399 

02010 

1442 

TAD I 

T 

400 

02011 

7450 

SNA 


/IS TASK REALLY NONRES? 

401 

02012 

5600 

JHP I 

XFREE 

/NO 1 RETURN 

402 

02013 

0375 

AND 

(7774 

/YESI ERASE FLAG BITS 

403 

02014 

3042 

OCA 

T 

/POINTS TO PARTBL WORO l 

404 

02015 

7344 

AC7776 


405 

02016 

0442 

AND I 

T 


406 

02017 

3442 

DCA I 

T 

/FLAG PARTITION "FREE" 

407 

02020 

1032 

TAD 

TASKX 

408 

02021 

1374 

TAO 

(TFT ABL 


409 

02022 

3042 

DCA 

T 

/POINTS TO TASK'S FLAG WORD 

410 

02023 

6202 

IFNZRO 

HGHFLD <CIF 0> 

411 



IFZERO 

HGHFLO «IOP> 


412 

02024 

7130 

STL RAR 



413 

02025 

1442 

TAD I 

T 


414 

02026 

3442 

DCA I 

T 

/FLAG TASK NONRESIDENT 

415 

02027 

1373 

TAD 

(*RUNWT»1 

416 

02030 

0772 

AND I 

(3WAPPER*TFTASL 


417 

02031 

3772 

OCA I 

(8WAPPER*TFTABL 

/CANCEL SWAPPER RUN WAIT 

418 



IFZERO 

HGHFLD <ION> 

/BE NICE SINCE SPACE IS NO PROBLEM 

419 

02032 

5600 

JHP I 

XFREE 

/FIND NEXT TASK TO RUN 


1 ?. 





Ml0*Vf0 M/li/79 Nil |f 


* I ’ 


L 


/W*P«« TAM roll RTII VI 


All 

Alt 

All 

All 

AlA 

All 

AlA 

AIT 

SIISS 

ISH 

/ 

/THI/OUORIN0 COOE IS ENTERIO AT 
/T0 INITIALIZE THC RKSTSl WITH TNI 

/ !! N !i l, ! IMT BWCI this coot 

/ZT II NEVER KXKCUTII ASAXN, IT ( 
/PARTITION (IINCK ALL ARE EMPTY A' 

INIT, 0 

AlA 

•USA 

4212 

CIP 10 

AM 

B2SSS 

AT71 

JHS I (7700 

ASS 

• 2SSA 

1010 

10 

AS! 

02037 

4212 

NCXTIN, GIF 10 

AS! 

•ISAS 

A77I 

JHS I (000 

ASS 

020A1 

•SIS 

5 

ASA 

• ISA! 

2324 

2324 

ASS 

• ISAS 

4211 

COP 11 

ASA 

020A4 

1747 

TAB I (7444 

AST 

• 20AS 

7490 

SNA 

ASS 

020AA 

9244 

JHR NOINPUT 

ASS 

02047 

7114 

CU. RAL 

AAS 

•20S0 

1344 


AAi 

•1091 

3042 

OCA T 

AA| 

02092 

1747 

TAD I (7A4A / 

AAS 

02SSS 

1374 

TAO (TPTA0L / 

AAA 

02054 

3303 

OCA TPPTR / 

AAS 

02095 

1745 

TAO X (7420 

AAA 

020SA 

4201 

COP 

AA7 

02097 

7011 

I AC 

AAS 

02SA0 

3442 

OCA I T 

AAS 

02041 

1703 

TAO I TPPTR / 

ass 

02042 

0344 

ANO (•SNPWT-NONRMT*! 

ASl 

020A3 

1343 

TAO (NONRNT / 

A5| 

020A4 

3703 

OCA I TPPTR / 

A53 

B20AS 

4211 

COP 10 

ASA 

S20AA 

1742 

NOINPUT,TAO I (7441 

ASS 

S2SA7 

4201 

COP 

ASA 

•1071 

7700 

•HA CU 

A57 

•2071 

9237 

JHP NEXTXN 

ASS 

•2S72 

4212 

CIP 10 

ASS 

•IS7S 

4770 

JHS I (200 

AAS 

12074 

0011 

11 

AAi 

I2S7S 

7340 

CIA Cll CHA 

AAI 

S207A 

1233 

TAO INIT 

AAS 

•2077 

9233 

OCA INIT 

AAA 

•2101 

1341 

TAO (ION 

AAS 

•2111 

3433 

OCA I INIT 

AAA 

•2102 

9770 

JHP I (200 

AA7 

AAS 

•2103 

•000 

TPPTR, 0 / 

AAS 

021A1 

4001 


470 

02142 

7442 


A71 

02143 

4000 


A7| 

02144 

3377 


ATS 

02145 

7420 


«74 

02144 

1351 



/•MM TAM NON-RMXDKNT WAIT BIT ON 


/SWAPPER TASK FOR RTSS V2 PAL0«VSD 09/U/75 RASE 10*1 


475 

02147 

7444 

474 

02170 

•200 

477 

02171 

7700 

• 70 

02172 

1410 

ATS 

•2173 

4777 

400 

02174 

1347 

401 

•2175 

7774 

402 

• 2174 

1414 

403 

• 2177 

77S4 

404 







/SWAPPER TASK FOR RTSS Vi 


PAL8-V9D 09/11/73 PAGE 11 


AC0002 

rm 

NRTASK 

0022 

UNBUSY 

1632 

AC2000 

7332 

NT ASKS 

0023 

UNIT 

1762 

AC3777 

7350 

NXTFL6 

1742 

USERWT 

0100 

AC4000 

7330 

osfill 

0004 

WAITE 

0002 

AC7773 

7346 

osflds 

0002 

WAITH 

4425 

AC7776 

7344 

OSKBDV 

0030 

XFREE 

2000 

blkarg 

0010 

08SVS0 

0010 



CAL 

4020 

OSTTOV 

0031 



CHECKP 

0001 

038 

0023 



CMKPT 

1712 

0S8F 

0020 



CLKQLN 

0020 

PARTBL 

1420 



CLKTVP 

0000 

PARTNS 

0000 



CLOCK 

0001 

PDP12 

0000 



COMMAN 

0043 

PDPBE 

0001 



CORAOR 

1744 

POST 

0005 



CSA 

0013 

P03TD3 

5424 



CSAF 

0014 

PTRl 

1766 



CUR 

0000 

PTR2 

1744 



OATE 

0040 

PTR3 

1745 



DERAIL 

0007 

PTR4 

1746 



DF32 

0012 

PWRF 

0002 



DNEWT 

0001 

PWRFAL 

0001 



OSKADR 

1765 

RECEIV 

0001 



OTA 

0007 

RESTBL 

1414 



EAE 

0001 

RETRY 

1747 



EFWT 

2000 

RF08 

0011 



ENABMT 

0040 

RK8 

0010 



EORMWT 

0200 

RUN 

0003 



ERRORS 

1766 

RUNWT 

1000 



FREE 

4000 

RXfi A 

0017 



GOTONE 

1625 

SEND 

0000 



HERTZ 

0170 

SENDIT 

1746 



HGHFLD 

0030 

SENOW 

0011 



ICS 

0016 

shertz 

0074 



INIT 

2033 

SKPINS 

0006 



INIWT 

1000 

start 

1605 



KNRwT 

1735 

SUNXT 

0000 



K3WPWT 

1710 

SuSPND 

0004 



LEVEL 

1763 

SWAPEX 

1603 



LOOPNX 

1600 

SWAPON 

1605 



LOOPON 

1611 

SWAPPE 

0021 



LPT 

0004 

SwPwT 

0400 



LTA 

0006 

SYS 

0010 



MCR 

0005 

SvSMSG 

1757 



MCREF 

0041 

T 

0042 



mcrsvs 

0001 

task 

0021 



MSGTBL 

1176 

Taskx 

0032 



MSGWT 

0020 

tfptr 

2103 



NETWT 

0010 

tftabl 

1367 



NEXTIN 

2037 

TOOH 

0037 



NFL AGS 

1743 

tool 

0036 



NOINPU 

2066 

tstabl 

1244 



NONRWT 

4000 

TSWFLG 

0035 



NOREAO 

1700 

TTY 

0003 



NORITE 

1672 

UNBARG 

0012 




15 



ERRORS OETECTEDl 0 
LINKS GENERATED I 0 


I 







lb 



AC0002 

112# 



AC2000 

111* 



AC3777 

110# 



AC4000 

109# 



AC7775 

108# 



AC7776 

107# 

404 


AO 

135# 



BLKAR0 

130# 

341 


CAL 

116# 

846 

316 

CHECKP 

54# 

322 

344 

CHKPT 

280 

323 

351# 

CLKQLN 

95# 



CIKTYP 

94# 



CLOCK 

63# 

93 


COMMAN 

160# 

233 


CO*ADR 

287 

371# 


CS 

138# 



CSA 

74# 



CS AF 

75# 



CT 

136# 



CUR 

175 

175 

230# 

OATE 

166# 



DERAIL 

129# 



DF32 

73# 



DNEWT 

149# 



OSKADR 

304 

310 

372# 

OTA 

69# 



EAE 

50# 



EFWT 

141# 



ENABMT 

146# 



EORMWT 

144# 



ERRORS 

364 

374# 


FREE 

133# 



GOTONE 

264 

266# 


HERTZ 

97# 



HGHFLO 

52# 

244 

259 

ICS 

76# 



INIT 

234 

427# 

462 

INIWT 

179 

231# 


knrwt 

265 

343# 


KSHPMT 

256 

320# 


LEVEL 

282 

307 

306 

LOOPNX 

244# 

258 

267 

LOOPON 

247 

255# 


LPT 

66# 



LTA 

68# 



MCR 

67# 

90 


MCREF 

167# 



MCRSVS 

91# 



HSGTBL 

152# 

153 

172 

MSGWT 

147# 



NETWT 

148# 



NEXTIN 

431# 

457 


NFL AGS 

246 

254 

355# 

NOINPU 

438 

454# 


NONRWT 

343 

450 

451 

NOREAD 

297 

312# 


NORITE 

291 

301 

306# 

NRTASK 

243# 

251 

253 


NTASKS 

53# 

78 

153 

nxtflg 

245 

252 

255 

OSFILL 

88# 



OSFLDS 

84# 



03KB0V 

85# 



OSSYSD 

87# 



OSTTDV 

86# 



OSS 

78# 

83 


0S8F 

79# 



PARTBL 

159# 

241 


PARTNS 

55# 



PDP12 

49# 



PDP8E 

48# 



POST 

127# 



POSTOS 

117# 



PTR1 

327 

328 

332 

PTR2 

273 

274 

283 

PTR3 

276 

277 

284 


346 

347 

357# 

PTR4 

292 

293 

298 

PWRF 

64# 



PWRFAL 

51# 



RECEIV 

123# 



RESTBL 

158# 

159 

272 

RETRY 

360# 

367 


RF0B 

72# 



RK8 

71# 

87 

102 

RUN 

125# 



RUNWT 

142# 

231 

415 

RX8A 

77# 



SEND 

122# 



SENDIT 

305 

311 

359# 

SENDW 

131# 

361 


SMERTZ 

98# 



SKPINS 

128# 



START 

176 

250# 


8UNIT 

103# 

369 


SUSPNO 

126# 

249 


SwAPEX 

248# 



SWAPON 

251# 

321 


SWAPPE 

70# 

101 

157 

SWPWT 

143# 

262 

320 

SYS 

102# 

362 


SYSMSG 

363 

368# 


T 

384# 

398 

399 


448 



TASK 

172 

174 

178 

TASKX 

383# 

392 

407 

TFPTR 

444 

449 

452 

tftabl 

155# 

156 

178 

todh 

165# 



TOOL 

164# 



T8TA8L 

153# 

155 

174 

TSWFLG 

163# 



TTY 

65# 



UDC 

135 



UNBARG 

132# 

319 


UN8USY 

274# 

348 


UNIT 

369# 



USERWT 

145# 




266 410 411 410 

465 

336 152 


272 316 316 33S 338 3«3 


158 159 253 

266 269 3544 


373# 

309 

313 

334 

356# 


266 

266 

269 

314 315 

324 

303 

325 

326 

356# 


336 

397 

440 




229 

243 

416 

417 

440 

440 

405 

406 

409 

413 

414 

441 

270 

408 

416 

417 

443 



340 

350 

260 

260 

463 

370* 

331 

272 

155 

261 

337 

295 

285 

302 

316 

366 

159 

450 

403 

229* 

468* 

251 



WAITE 

124# 


WAITM 

114# 


XFREE 

235 

391# 

j.01771 

316 

331 

.4.01 772 

275 


101773 

272 


101774 

270 


101775 

262 


.4,01776 

253 


101777 

251 


102161 

464 


.4.02 162 

454 


.4.02163 

451 


.t.02164 

450 


102165 

445 


.02166 

440 


102167 

436 

442 

.4.021 70 

432 

459 

.402171 

429 


.4021 72 

416 

417 

.40217 3 

415 


10217 4 

408 

443 

.402175 

402 


.4021 76 

397 


j.02177 

393 



an 


V3 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 
18 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

«1 

42 

43 

44 


/PARAMETERS FOR RT3*8 TASKS 
/ 

/ 

/ 

/ 

/ 

/ 


(VERSION 2) 


/ 

/ 

/COPYRIGHT 

/ 

/ 

/ 

/ 

/ 

/ 


(C) 1974,1975 BY DIGITAL EQUIPMENT CORPORATION 


/ 

/ 

/ 

/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
/AND SHOULD NOT BE C0N3TRUE0 AS A COMMITMENT BY DIGITAL EQUIPMENT 
/CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT, 

/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL, 

/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
/DIGITAL, 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 





/PARAMETERS FOR RTS-8 TASKS 


(VERSION FALS.V90 09/11/75 FACE 2 


• 9 


45 

44 

47 

48 

49 

50 

51 

52 

53 

54 

55 
54 

57 

58 

59 

40 

41 

42 


/RTSS V2 EXEC PARAMETERS • EDITED BY USER 

1001 PDPSE-l 
0000 PDP12*0 

0001 EAEtl 
0001 PMRFAldl 
0030 HGHFLOpSB 
0023 NTASKSP23 
0001 CHECKPTfl 
0000 PARTNS-0 

/(THE N PARTITIONS ARE NUMBERED FROM 0 TO N«t) 
/COMMON TASK NUMBERS ■ EDITED BY USER 

' X I. X * iS V I #A#Le T0 ° efINt ALL TASKS HERE, NAMES GIVEN BELOW 

/A !5. U !?° iv 80M * • y8T|M tasks and should be deleted from this 

/LIST IF THE CORRESPONDING TASK IS NOT INCLUDED IN THE SYSTEM 


43 

0001 

CLOCKPl 


44 

0002 

PWRFP2 


45 

0003 

TTY-3 


44 

0004 

LPT«4 


47 

0005 

HCRcS 


40 

0006 

LTA«4 


49 

0007 

OTAvT 


70 

0021 

8WAPPERP21 


71 

0010 

RK0P10 


72 

0011 

RF08-U 


73 

0012 

0F32P12 


7a 

0013 

CSA*13 


75 

0014 

CSAFP14 


74 

0016 

ICSalb 


77 

0017 

RX8A-17 


78 

0023 

0S6-NTASKS 


79 

0020 

OS8F«20 


80 




81 


/SOFTWARE PARAMETERS 

82 




83 


IFDEF 

OSS 

84 

0002 

08FLD8>2 


85 

0030 

OSKBDV a 30 


66 

0031 

O8TT0V«31 


87 

0010 

OSSYSDaRKS 


88 

0004 

OSFILL-4 


69 


» 


90 


IFDEF 

NCR 

91 

0001 

MCRSYSal 


92 


> 


93 


IFDEF 

CLOCK 

94 

0000 

CLKTYPa0 


95 

0020 

CLKQLN«20 


96 


DECIMAL 


97 

0170 

HERT2al20 


98 

0074 

SHERTZ-60 


99 


OCTAL 



EDITEO BY USER 


/PARAMETERS FOR RTS-8 TASKS (VERSION PA18-V9D 09/11/75 PAGE 2*1 



IFDEF SWAPPER < 

0010 SYSaRKS 
0000 SUN IT » A 



/PARAMETERS FOR RTS-S TASKS 


RASE 3 


115 

116 
1ST 
1S8 

109 

110 
111 
112 

113 

114 

115 

116 
117 

i ia 

119 

120 
121 
122 

123 

124 

125 

126 
127 
120 

129 

130 

131 

132 

133 

134 

135 

136 

137 
136 

139 

140 

141 

142 

143 

144 

145 

146 

147 
140 
149 


(VERSION RAL0.V9O 09/11/75 

/EQUIVALENCES! 

7344 AC77761 CIL STA RAl 

7344 AC7775* ClL STA RTl 

7330 AC4000* CLA STL RAR 

7350 AC3777* CLL STA RAR 

7332 AC2000P CLA STL RTR 

7324 AC0002- CLA STL RTL 


/MONITOR CALL VALUES! 


40|B 

CAL* 

JMS 


20 

5424 

P03TD3v 

JMP 

I 

24 

4425 

WAITM* 

JMS 

I 

25 


/CALL THE EXECUTIVE 
/DISMISS AN INTERRUPT 
/WAIT FOR MULTIPL! EVENTS 


0000 

SEND* 

0 

0001 

RECEIV* 

1 

•002 

WAITE* 

2 

0003 

RUN* 

3 

0004 

SUSPND" 

4 

0005 

POST* 

5 

• 004 

SKPINS* 

6 

0007 

DERAIL* 

7 

0010 

blkarg* 

10 

•011 

SENDW* 

11 

0012 

UNBARG* 

12 

4000 

FREE* 

4000 


/NOTE! »*•" MEANS CRITICAL VALUE MAY NOT 

/SE CHAN6E0 WITHOUT MODIFYING SYSTEM COOEU 

/SEND MESSAGE 

/RECEIVE MESSAGE 

/WAIT FOR EVENT FLAG 

/CONTINUE TASK EXECUTION 

/SUSPEND TASK EXECUTION 

/POST AN EVENT FLAG 

/INSERT CODE INTO INTERRUPT SKIP CHAIN 
/INITIATE END.ACTION 

/BLOCK TASK FOR REASON SPECIFIED IN ARG 
/SEND MESSAGE ANO WAIT 

/UNBLOCK TASK FOR REASON SPECIFIED IN ARG 
/••FREE PARTITION 


IFDEF UOC 


/TASK STATUS FLAGS! 


«AO*0f00*1!DI*2!6C*3!EC*4fRC*5 
DCP0IECT«7rCS*lOrDCTillfAl»l2» 


4000 NONRWTp 4000 
2000 EFWT* 2000 
1000 RUNWTa 1000 
0400 SWPWT* 0400 
0200 EORMWTa 0200 
0100 USERWT* 0100 
0040 ENA0WT* 0040 
0020 MSGWT* 0020 
0010 NETWT* 0010 
0001 DNEWT* 0001 


/••NONRESIDENT TASK WAIT 
/EVENT FLAG WAIT 
/SCHEDULE WAIT 
/••SWAPPER WAIT 
/EVENT FLAG OR MESSAGE WAIT 
/USER SPECIFIED WAIT 
/ENABLE WAIT 
/MESSAGE WAIT 

/NETWORK WAIT (RESERVED FOR POSSIBLE FUTURE USE) 
/••DOES NOT EXIST WAIT 


/PARAMETERS FOR RTS-8 TASKS (VERSION PAL0-V9D 09/11/75 PAGE 4 


150 

151 

152 

153 

154 

155 

156 

157 
150 

159 

160 
161 
162 

163 

164 

165 

166 
167 
166 


/SYSTEM LOCATIONS! 

1176 MSGTBL* 1200-2 

1244 TSTABL* NTASKSt2*2^MSGTBL*4 

1367 TFTABL* NTASKS*2*4-TSTABL-1 

IFDEF SWAPPER « 
1414 RESTBL* TFTABLPNTASKS*2 
1420 PARTBL- NTASKS-3WAPPER*2->RE! 
0043 C0MMANDM3 


/TASK MESSAGE TABLE 
/TASK STATE TABLE • HOLDS 
/TASK LINK,JM,OF,IF,PC,AC,MQ 
/TASK FLAGS TABLE * HOLDS 
/TASK STATUS FLAGS 

/RESIDENCY TABLE 
,♦347774 /PARTITION TABLE 

/SWAPPER COMMAND BUFFER 


0035 

TSWFLG* 

35 

0036 

TOOL* 

36 

0037 

TOOH* 

37 

0040 

DATE* 

40 

0041 

MCREF* 

41 


/TASK 

SW INHIBIT 

FLAG 

IN 

HELD 

0 

/LOW 

ORDER 

TIME 

OF DAY 

IN 

1'IELD 

0 

/HIGH 

ORDER 

TIME 

OF DAY 

IN 

HELD 

0 

/DATE 

IN 030 FORMAT 

IN 

HELD 

0 

/MCR 

START 

EVENT 

FLAG 

IN 

HELD 

0 




/RTS-8 


09/11/75 


PAGE 6 


SMALL REAL TIME SYSTEM V* PALB-V9D 


U9 

IT* 

171 

172 

173 
179 
173 

176 

177 

178 

179 

180 
181 
182 

163 

164 

185 

186 
167 
186 
169 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 


/RT8.6 SMALL REAL TIME SYSTEM V2 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT (C) 1974,1975 BY DIGITAL EQUIPMENT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
/ANO SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
/CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT, 

/ 

/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM ANO CAN BE COPIED 
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT N(lTlCE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 

/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
/OR RELIABILITY OF ITS SOFTWARE ON EQUlPMeNT THAT IS NOT SUPPLIED BY 
/DIGITAL, 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 
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/RTS-8 SMALL REAL TIME SYSTEM V2 


PAL8-V9D 09/11/75 »AGE 7 


213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 
227 
226 

229 

230 

231 

232 

233 

234 

235 

236 


/RICHARD LARY LAST EDITED AUG 16, 1974 

/SHAWN SPILLMAN EDITED THIS ON 14-SEP-74, 

/STANLEY RABINOWITZ EDITED THIS ON 5.APR-75 
/ ADDED PDP-12 SUPPORT 

/ FIXED ANGLE BRACKET BUG OF SHWANS 

/BASED ON T-O-Y JUNE 5, 1973 

/IOT'S FOR OPTIONAL HARDWARE I 

IPNDEF POP 12 <PDP12-0> /II* NOT SURE, YOU'RE NOT A PDP-12 

IFZERO P0P8E « 

IFZERO POP 12 <CAFHLT«HL'*> /HALT TO LET USER CLEAR FLAGS 
IFNZRO P0P12 «CAFHLT«JMH IOPRST* /ISSUE I/O PRESET ON PDP-12 

IFNIRO PDP6E «CAFHLT*CAF» /MACHINE WILL CLEAR FLAGS 

6254 /SKIP ON USER INTERRUPT 

6274 /SET USER MODE FLAI 

6102 /SKIP ON POWER LOW 

6141 /ENTER LINC MODE 

2 /ENTER PDP-6/I MOD! 

* /enable special factions 


6007 

6254 SINT* 
6274 SUF* 
6102 SPL* 
6141 LINC* 
0002 POP* 
0004 ESP* 




/RTS-8 

SMALL 

REAL 

TIME SYSTEM V2 

237 

238 

239 

240 

08000 

B000 

B00B 

/PAGE 0 

OF FIEI 

*0 

0 

241 

00001 

5402 


JMP I 

242 

00002 

0204 


INTRPT 

243 

244 

00003 

0222 

PFLADR, 

IFN2RO 

PFLRTN 

245 

244 

247 

248 

00017 

0017 

0000 

XR, 

» 

*17 

0 

249 

00020 

0000 

LOC20, 

0 

250 

00021 

6201 

DCOF, 

COF 0 

231 

00022 

*002 

CALIOF, 

IOF 

252 

00023 

5426 


JMP I 

233 

00024 

0235 


D9P0ST 

234 

00025 

0463 


XWAITM 

255 

00026 

0400 

CALEXC, 

EXEC 

234 

00027 

0000 

ACARG, 

0 

237 

00030 

0000 

MPTR, 

0 

258 

00031 

0000 

MPT2, 

0 

259 

00032 

0000 

TASKX, 

B 

260 

00033 

0000 

INTT, 

0 

261 

2*2 

00034 

7777 

SVSFLG, 

>1 

2*3 

264 

2*5 

00035 

0001 

TSWFLG, 

1 

2** 

2*7 

2*8 

2*9 

270 

00036 

0000 

tool, 

0 

271 

00037 

0000 

todh, 

0 

272 

00040 

0227 

DATE, 

TSTCLK 

273 

00041 

0000 

MCREF, 

0 

274 

00042 

0000 

T, 

0 

275 

276 

277 

278 

279 

00045 

0045 

0000 


IFDEF 

IFNZRO 

*,♦2 

> 

ZBLOCK 
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.♦1 

PWRFAL 


/INTERRUPT "VECTOR" 

/SET TO JMP I 3 ON POWER FAILURE 


/CHANGED BY POWER FAIL TASK 


/INDEX REGISTER J3ED BY EXEC 

/MONITOR CALI LOCATION *• MUST BE AT 20 ** 


CALEXC 

/*• MUST BE AT L3C 24 *• 

/•* MUST BE AT L1C 25 ** 

/** MUST BE 400 ** 

/HOLDS AC ARG ON EXEC CALLS 

/POINTS TO FIRST WORD OF MESSAGE 0 POINTER 

/" " SECOND " " 

/CURRENT TASK NUMBER 

/interrupt-level TEMPORARY 

/SAVE STATE FLAG - 

/ml MEANS CPU STATE COUNTS & SHOULO BE SAVED, 
/0 MEANS CPU STA-E IS UNIMPORTANT, 

/TASK SWITCHING INHIBITED FLAG - 

/ 1 ■ TASK SWITCHING ALLOWED 

/ 0 ■ TASK SWITCHING INHIBITED 

/•i ■ TASK SWITCHING INHIBITED, RESCAN ASAP 

/TIME-OF-DAY LOW ORDER 
/TIME-OF-DAY HIGH ORDER 
/DATE WORD • USED TO INIT CLOCK HANDLER 
/MCR STARTUP EVENT FLAG 
/NON-INTERRUPT LEVEL TEMPORARY 
SWAPPER < 

COMMAN-.p^ERRORI CHANGE SWAPPER.^* 

/SWAPPER LOADS TWO ENTRY POINTS HERE 

50-, /RESERVED FOR FUTURE EXPANSION 


/RTS-8 

SMALL 

REAL 

time 

SYSTEM V2 

280 



/SET 

UP EXEC LI 

281 





262 




IFZERO 

283 


0001 


FIELO 1 

284 


0021 


*21 

285 

10021 

6211 


COF 10 

266 

10022 

6202 


CIF 0 

287 

10023 

5022 


JMP 

286 

10024 

0235 


DSP08T 

289 

10025 

0463 


XWAITM 

290 




» 

291 




IFZERO 

292 


0002 


FIELD 2 

293 


0021 


• 21 

294 

20021 

6221 


COF 20 

295 

20022 

6202 


CIF 0 

2*6 

20023 

5022 


JMP 

297 

20024 

0235 


OSPOST 

298 

20025 

04*3 


XWAITM 

299 




> 

300 




IFZERO 

301 


0003 


FIELD 3 

302 


0021 


*21 

303 

30021 

6231 


COF 30 

304 

30022 

6202 


CIF 0 

305 

30023 

5022 


JMP 

306 

30024 

0235 


DSPOST 

307 

30025 

0463 


XWAITM 

308 




> 

309 




IFZERO 

310 




FIELD 4 

311 




*21 

312 




COF 40 

313 




CIF 0 

314 




JMP 

315 




DSPOST 

316 




XWAITM 

317 




> 
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HGHFLO-1044000 < 


HGHFLD-2044000 < 


CALI OF 


HGHFLD-3044000 


HGHFLO-4044000 < 


caliof 




/RTS-8 

SMALL REAL 

TIME SYSTEM V2 

318 


IFZERO 

319 


FIELD 5 

320 


*21 

321 


COF 50 

322 


CIF 0 

323 


JMP 

324 


DSPOST 

325 


XWAXTM 

326 


» 

327 


IFZERO 

328 


FIELD 6 

329 


*21 

330 


COF 60 

311 


CIF 0 

332 


JMP 

333 


DSPOST 

334 


XWAXTM 

335 


6 

336 


IFZERO 

337 


FIELD 7 

338 


*21 

339 


CDF 70 

340 


CIF 0 

341 


JMP 

342 


DSPOST 

343 


XWAXTM 

344 


fr 

345 

346 

0000 

FIELD 0 


PAL8-V9D 09/11/79 PAGE 10 
HGHFLD-5044000 4 


calxof 


H0HFLO-60I4000 4 


CALXOF 


HGHFLO-70I4000 « 


CALXOF 



29 


/RT8-8 SMALL REAL TIME SYSTEM V8 
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347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 


/INTERRUPT ROUTINE 
0200 *200 


00200 6007 


00201 4443 NEWT3K, JM8 I 


T38L0C, CAFMLT /SO ME CAN START AT 200 

IFNZRO TS8LOC-200 «ERROR> /0S8SUP NEEDS THIS HERE 

IFOEF SMAPPER « 

COMMAND /DO SWAPPER INITIALIZATION 
/(SEE SWAP TASK FOR DETAILS) 

SWAPPER * 


00202 

00203 


00204 

00205 

00206 

00207 

00210 


5603 

0534 


6254 

7410 

5600 

3203 

6004 


NEWT3K, 

INTFGS, 

INTAC, 

INTRPT, 


IFNOEF 

ION 


JMP I 
FINOJ 


.♦1 


/GO AND FIND THE FIRST 


IFOEF 
SINT 
SKP 
JMP I 
» 

OCA 

IFNZRO 

IFZERO 

RAR 

RIB 


OSS 

/TASK 

< 

TO 

RUN 


/MUST 

BE 

FIRST 

TS8L0C 

INTAC 

PDP8E 

PDP8E 

/SAVE 

«GTF> 

4 

AC 



/COMBINE 

LINK, 


00211 

3202 

USERSK, 

OCA 

INTFGS 

00212 

6102 


IFNZRO 

PWRFAL 

00213 

5227 


JMP 

TSTCLK 




IFNZRO 

PWRFAL 

00214 

1000 


TAO 

0 

00215 

3033 


OCA 

INTT 

00216 

1377 


TAD 

(JMP I 

00217 

3000 


OCA 

0 

00220 

7402 


HLT 


00221 

0000 

PWFLEF, 

0 


00222 

1033 

PFLRTN, 

TAD 

INTT 

00223 

3000 


OCA 

0 

00224 

1376 


TAD 

(PWFLEF 

00225 

5424 


POSTDS 

00226 

0325 

BSKCHN, 

OXSMIS 


00227 

6203 

TSTCLK, 

CDF CIF 

0 

00230 

7000 


NOP 


00231 

5626 


JMP I 

BSKCHN 

00232 

6203 

DCDXF0, 

COF CIF 

0 

00233 

5634 


JMP I 

.♦1 

00234 

0325 


DISMIS 


/VERY HIGH PRIORITY USER FLAG TESTS GO HERE 

«3PL> /SKIP ON POWER LOW 

/NO MORE H,P, SKIPS - GO TO SKIP CHAIN 

4 

/SAVE LOCATION ZERO 
PFLAOR 

/SET UP 0 FOR RESTART 
/OON'T try anything fancy 

/POWER FAILURE EVINT FLAG 
/*• MUST BE AT PWPLEFM ** 

/RESTORE LOCATION OF POWER LOW INTERRUPT 

/POST THE POWER-PAIL INTERRUPT 

/TO EXECUTE THE POWER-FAIL TASK (IF ANY) 

/BEGINNING OF SKIP CHAIN LIST 
/ADDRESS FOLLOWED BY COF CIF FIELD 
/SET TO CLSK BY CLOCK ROUTINE 

/CLOCK HANDLER ALWAYS IN FLO 0 

/CHANGED BY CLOCK HANDLER (IF ANY) 


30 



/RTS«8 SHALL REAL TIME SYSTEM V2 
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598 

599 
480 

461 

402 

403 

404 

405 

406 
40T 
400 

409 

410 

411 

412 

413 

414 

415 

416 

417 
410 

419 

420 

421 

422 

423 

424 
423 

426 

427 
420 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 


/SUBROUTINE TO POST AN EVENT FLAG AND OISMISS FROM INTERRUPTS 
/ENTER KITH IOP, OPftO.P, OF EVENT FLAG, AC'ADORESS OF EVENT FLAG 


00235 

00236 

00237 

00240 

00241 

00242 

00243 

00244 

00245 

00246 

00147 

00250 

00251 

00252 

00253 

00254 

00255 

00256 

00257 

00260 

00261 

00262 

00263 

00264 

00265 

00266 

00267 

00270 

00271 

00272 

00273 

00274 

00275 

00276 

00277 

00300 

00301 

00302 

00303 

00304 

00305 


7450 

5325 

3033 

7330 

1433 

3201 

3433 

1201 

7510 

5251 

4775 

2200 

7620 

5325 

1000 

6234 

0374 

7640 

1035 

7740 

5265 

7240 

3035 

5325 

2034 

5303 

1032 

7106 

1373 

3017 

1202 

3417 

1000 

3417 

1203 

3417 

7501 

3417 

1201 

6001 

3032 


DSPOST, 


SNA 

JMP 

OCA 

AC4000 
TAO I 
OCA 
OCA I 
TAO 
SPA 
JMP 
JMS 


OISMIS 
INTT 

INTT 
NEWTSK 
INTT 
NEWTSK 

.♦3 

.... . (FREEJ 

EFWT1EORMMT 
SNL CLA 

JMP OISMIS 

TAO 0 

IFOEF 088 «RI6» 
AND (7700 

8ZA CLA 

TAO TSWFLG 

8MA SZA CLA 

JMP STOPJ 

8 TA 

OCA TSWFLG 

JMP OISMIS 


STOPJ, 


ISZ 

JMP 

TAD 

CLL RTL 
TAO 
DCA 
TAD 
OCA I 
TAD 
OCA I 
TAO 
DCA X 
IFNZRO 
MQA 
OCA I 


svsflg 

N0SV3T 

TASKX 


/NO EVENT FLAG • JUST DISMISS 


/LINK-I IF EVENT *LAG,IT,S, 0 XF,GT,0 

/SAVE OLD VALUE 0* EVENT FLAG 

/ZERO EVENT FLAG TO INDICATE EVENT COMPLETION 

/** LINK MUST IE 1 HERE IF AC IS NEGATIVE ** 

/IF E.F. ,LT, S, TASK WAS WAITING FOR EVENT 
/SO CLEAR "EVENT UIT" SIT IN FLAG WORO, 

/IF THE TASK WHICH WAS WAITING ON THIS 
/EVENT FLAG IS HIGHER PRIORITY THAN THE TASK 
/CURRENTLY RUNNING, SUSPEND THE CURRENT TASK 

/unless we are in a non*interruptable zone 

/(NAMELY L0C8 0-7' OF A FIELD 
/NOT USED BY OS/S BACKGROUND) 

/OR TASK SWITCHING HAS BEEN SPECIFICALLY 
/INHIBITED BY THE SOFTWARE 
/(BY MAKING TSWFLG LE 0) 

/IF TASK SWITCHING IS INHIBITED, 

/SET FLAG TO IN3UHE A RESCAN OF THE TASK LIST 
/WHEN WE UNINHIBI'* IT, THEN OISMISS NORMALLY, 

/IS THE STATE OF "HE CURRENT TASK WORTH SAVING? 
/NO • FORGET IT, 


(TSTABL-1 


XR 
INTFGS 
XR 
0 

XR 

INTAC 

XR 

EAE 

XR 


N08VST, TAO 
ION 
DCA 


TASKX 


/SAVE THE CURRENT TASK'S STATE 


/SAVE THE MG 

/WE NOW ATTEMPT H START UP THE HIGHER 
/PRIORITY TASK, • HOWEVER, SINCE INTERRUPTS 
/HAVE BEEN OFF POP A WHILE, WE RE-ENABLE THEM 
/WITH THE "DON'T f-AVE STATE" FLAG ON, 


/THIS MEANS THAT IF ANYBODY WITH HIGHER PFIORITY THAN "NEWTSK" 
/GETS AN EVENT-FLAG-SETTING INTERRUPT NOW, WE'LL JUST DASH OFF 
/ANO START HIM INSTEAD, 

/•* NOW FALL INTO "3TARTJ" ON THE NEXT PACE *• 


/RTS-8 

SMALL 

REAL 

TIME SYSTEM V2 
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452 



/CODE 

TO START 

UP A TASK 


453 



/ENTER 

WITH TASK# IN "TASK", DF«0, ION, NO STATE (SVSFLG-0) 


454 








455 



STARTJ 

, IFZERO 

HGHFLO 

<ION> /INTERRUPTS ALREADY ON IF CIF 

WORKS 

456 

00306 

1032 


TAO 

TASKX 

457 

00307 

7106 


CLL RTL 




458 

00310 

1373 


TAO 

(TSTABL* 

1 /FORM POINTER INTO TASK STATE 

table 

459 

00311 

3017 


OCA 

XR 


460 

00312 

7240 


STA 




461 

00313 

6002 


I OF 


/OK, THINGS ARE GETTING SENSITIVE - TURN INT8 

462 

00314 

3034 


DCA 

SVSFLG 

/AND RESET SAVE-STATE FLAG TO "YES" 


463 

00315 

1417 


TAO I 

XR 



464 

00316 

3202 


OCA 

INTFGS 



465 

00317 

1417 


TAO I 

XR 



466 

00320 

3000 


OCA 

0 

/SIMULATE AN INTERRUPT FROM THE TASK 


467 

00321 

1417 


TAD I 

XR 



468 

00322 

3203 


OCA 

INTAC 

/AND OISMISS IT 


469 




IFNZRO 

EAE 

« 


470 

00323 

1417 


TAO I 

XR 



471 

00324 

7421 


MOL 


/RESTORE MO 



472 

473 

474 


/** NOW FALL INTO "OISMIS" ON NEXT PAGE ft* 


32 
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/RT8-0 SMALL REAL TIME SYSTEM VI 


473 



/INTERRUPT DISMISS ROUTINE - AL80 U0EO TO 8TART TA0K6 

476 







477 



DXSMI8, 

IPNZRO 

PDP6E 

4 

478 

00325 

6003 


SRQ 


/ANY OTHER INTERRUPTS PENDING? 

479 

00326 

7410 


IKP 


/NO 

480 

00327 

Sill 


JMP 

U0ER0K 

/Til • SKIP PREAMBLE 8TUPP FOR EXTRA SPEED 

481 




6 


488 

00330 

1201 


TAD 

XNTPG6 


463 




IPNZRO 

PDP0K 

i 

464 

00331 

6003 


IPNZRO 

HGHPWD 

•RTFs 

463 




XPZIRO 

HGHPID 

4RAW» /RTF DOESN'T WORK RIGHT ON 4K 6E*S 

486 

00332 

7200 


CIA 



467 




» 



466 




XPZIRO 

P0P6E 

4 

469 




IP0IP 

066 

4 

490 




TAD 

(700 

/PROPAGATE USER-MODE BIT PROM BIT 5 TO BIT 2 

491 




» 



492 




CLL RTU 



493 




RAW 


/USER-MODE BIT NOW IN UXNK 

494 




AND 

(70 

/FAKE AN RTF IP NOT ON A PDP6E 

493 




TAO 

OCOP 


496 




OCA 

0X6C0P 


497 




IPDCP 

066 

-4 

496 




8ZL 


/IP U8ER MODE WAS ON WHEN WE INTERRUPTED* 

499 




8UP 


/TURN IT ON WHEN WE DISMISS 

500 




P 



501 




AC4000 



502 




TAO 

XNTP68 


503 




AND 

(70 

/NOTE THAT THE LINK IS NOW RESTORED 

504 




TAD 

OCOXP0 


505 




DCA 

0I8CXP 


506 



DISCXF, 

0 



507 



DI8CDF, 

0 



506 




6 



509 

00333 

1203 


TAD 

INTAC 


510 




IPZERO 

•PDP6E6HGHPLD 4X0N» /FOR PRE 6E OR 4K 6E MACHINES 

311 

00334 

3400 


JMP I 

0 


512 







513 




IPNZRO 

PDP12 I 


514 



IOPRST, 

0 



515 




TAO (20 


/ I/O PRESET BIT IN SPECIAL FUNCTIONS REGISTER 

316 




IINC 


/ENTER LXNC MODE 

517 




IIP 


/ENABLE SPECIAL FUNCTION 

516 




POP 


/BACK TO 8-MODE 

519 




CWA 



520 




JHP X XOPRIT 


521 




6 



522 

00373 

1243 





523 

00374 

7700 





524 

00375 

1102 





525 

00376 

0221 





526 

00377 

5403 





527 


0400 


PAGE 




/RTS-8 

SMALL 

REAL 

TIME SYSTEM V2 
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326 



/RTS-8 

EXECUTIVE 

: • PROCESSES USER REQUESTS 

529 







530 



/CALLED 

BY 1 

JMS 20 

/IN ANY FIELD 

531 



/ 


ARGS 


532 



/ 




533 



/COOE AT LOC 20 

TURNS IOF, DOES COF CUR ANO CXF 0 AND JUMPS HERE 

534 







535 

00400 

3027 

EXEC, 

DCA 

ACARG 

/SAVE POSSIBLE AC ARGUMENT 

536 

00401 

1035 


TAD 

tswflg 

/TSWFLG-1 HERE UNLESS WE WERE INTERRUPTED 

537 

00402 

7700 


SMA CLA 


/WHEN WE WERE IN THE PAGE 0 CODE, IN WHICH 

536 

00403 

3035 


DCA 

TSWFLG 

/ITS -1 • ZERO IT IP IT WAS l 

539 

00404 

6001 


ION 


/IT IS NOW OK TO TURN INTERRUPTS BACK ON 

540 

00405 

6214 


RDF 



541 

00406 

1331 


TAD 

ECDIF0 


542 

00407 

3326 


DCA 

EXRET 

/SAVE RETURN FIELD 

543 

00410 

1777 


TAD I 

(LOC20 

/GET LOC 20 OF THE CALLING FIELD 

544 

00411 

3020 


DCA 

L0C28 

/SAVE IT IN FIELD 0 

545 

00412 

1420 


TAO I 

LOC20 

/GET THE COMMAND 

546 




IFDEF 

SWAPPER 

4 

547 

00413 

3043 


DCA 

COMMAND 

/SAVE A COPY FOR LATER 

548 

00414 

1043 


tad 

COMMAND 

/IN CASE HE WANTS TO "FREE" 

549 




> 



550 

00415 

2020 


ISZ 

LOC20 


551 

00416 

0376 


AND 

(17 


552 

00417 

1222 


TAD 

CMDJMP 


553 

00420 

3221 


DCA 

.♦1 

/TURN COMMANO INTO DISPATCH JUMP 

554 

00421 

7402 


HLT 



555 







556 

00422 

3623 

CMDJMP, 

JMP I 

.♦1 


557 

00423 

0601 


XSEND 


/SEND MESSAGE TO A TASK 

558 

00424 

0713 


XRECEIV 


/GET A MESSAGE FROM THE MESSAGE QUEUE 

559 

00425 

1124 


XWAITE 


/WAIT FOR AN EVENT FLAG TO BE POSTED 

560 

00426 

1044 


XRUN 


/RUN A TASK (IF NOT BEING RUN) 

561 

00427 

1061 


XSU8PND 


/SUSPEND EXECUTION OF A TASK 

562 

00430 

1141 


XPOST 


/POST AN EVENT FLAG 

563 

00431 

0476 


XSKPINS 


/INSERT SKIP INTO INTERRUPT CHAIN 

564 

00432 

0436 


XDERAl 


/DERAIL A TASK 

565 

00433 

1063 


XBLKARG 


/BLOCK TASK FOR REASON SPECIFIED BY ARG 

566 

00434 

0600 


XSENDW 


/SEND MESSAGE ANO WAIT FOR COMPLETION 

567 

00435 

1046 


XUN0ARG 


/UNBLOCK TASK FOR REASON SPECIFIED BY ARG 

568 










/RTS-8 

SMALL 

REAL 

TXMl SYSTEM V 

589 



/ROUTINE TO 

570 




571 

80438 

1420 

XDERAL, TAD 

572 

80437 

2020 

ISZ 

575 

•0440 

3042 

DCA 

574 

00441 

1027 

TAD 

575 

00442 

7106 

CLL 

578 

00443 

1375 

TAD 

577 

• 0444 

3030 

DCA 

57B 

00445 

6201 

CDF 

579 

00448 

1430 

TAD 

580 

00447 

0374 

AND 

581 

00450 

1021 

TAD 

982 

00451 

3254 

OCA 

583 

00452 

2030 

ISZ 

984 

•0453 

1430 

TAD 

585 

•0454 

74S2 

ORLCDF, HLT 

588 

00455 

3442 

DCA 

587 

• 0458 

6201 

CDF 

588 

00457 

1042 

TAD 

989 

00460 

7001 

I AC 

590 

00461 

3430 

DCA 

591 

00462 

5326 

JMP 

592 




593 




594 



/SUBROUTINE 

595 



/CALLED VIA 


PAL8-V9D 09/11/79 PACE ft 
/ROUTINE TO DERAIL A TASK'S EXECUTION INTO A SUBROUTINE 


RTL 


LOCE0 

LOC20 

T 

ACARS 

CTSTABL 

MPTR 

MPTR 

(70 

OCOF 

ORLCDP 

MPTR 

MPTR 

T 

T 

MPTR 

IXRET 


/SAVE ADOR OP DERAIL SUtR 

/GET POINTER INTO TASK ITATE TABLE 

/GET INSTRUCTION PXELO 


/GET CURRENT TASK PC 
/COP TO TASK FIELD 
/STORE PC IN SUBR HEADER 


/SET PC TO SUBR HEADER ♦ 1 
/RETURN TO CALLING TASK 




SH 

997 

598 

599 
800 
801 
802 
80S 

804 

805 

806 
807 
6 S8 

809 

810 
811 
812 


I 25 NITH INTERRUPTS OFF, 

/THIS ROUTINE SHOULD BE CALLEO AFTER SCANNING THE MULTIPLE EVENT FL 
/(WITH INTERRUPTS OFF) TO AVOID TURNING INTERRUPTS ON BEFORE THE 
/WAIT MASK IS PLACED IN TPTABL, THE "BLKARG" CALL TO THE RTS EXEC 
/WOULO TURN INTERRUPTS ON (IN THE EXEC), THUS INVITING 
/HULTIPLE-UPOATE PROBLEMS, 


00463 

0000 XWAXTM, 

0 



0S464 

1263 

TAD 

XWAITM 


•0465 

3S<0 

DCA 

LOC20 

/FAKE A CALL TO EXEC (IN CASE WE MUST WAIT) 

00466 

6214 

ROF 



00467 

1331 

TAD 

ECDIF0 


00470 

3326 

OCA 

EXRET 


• 0471 

3035 

DCA 

tswflg 

/THIS IS STILL FART OF THE FAKE CALL 

•0472 

1420 

TAD I 

LOC20 

/GET THE WAIT MASK 

00473 

2020 

ISZ 

LOC20 


00474 

7100 

CLL 


/MAKE SURE TSWAIT ZEROS TASK AC 

00475 

5773 

JMP I 

(TSWAIT 

/GO WAIT ON MASK 


/RTS-8 

SMALL 

REAL 

TIME SYSTEM V2 

Pi 

613 



/INSERT 

A DEVICE 

SKrXP U 

614 





LOCI0 

615 

00476 

1420 

XSKPINS, 

>tad i 

616 

00477 

2020 


ISZ 

LOC20 

617 

00500 

3042 


DCA 

T 

618 

00501 

1442 


TAD I 

T 

619 

00502 

7640 


SZA CLA 


620 

00503 

5326 


JMP 

EXRET 

621 

00504 

1372 


TAD 

(0ISMI8 

622 

00505 

3442 


OCA I 

T 

623 

00506 

2042 


ISZ 

T 

624 

00507 

1331 


TAO 

ECDIF0 

625 

00510 

3442 


DCA I 

T 

626 




IFNZRO 

HGHFLO 

627 

00511 

6214 


ROF 


628 

00512 

1331 


TAD 

ECDIF0 

629 

00513 

6203 

INTCDF, 

CDF CIF 

0 

630 

00514 

6202 


CIF 0 


631 

00515 

3313 


DCA 

INTCOF 

632 




> 


633 

00516 

1042 


TAD 

T 

634 

• 0517 

3733 


OCA I 

INTEND 

635 

00520 

2333 


ISZ 

INTEND 

636 




IFNZRO 

HGHFLO 

637 

00521 

1313 


TAO 

INTCDF 

638 




> 


639 

00522 

3733 


DCA I 

INTENO 

640 

00523 

7240 


STA 


641 

00524 

1042 


TAD 

T 

642 

00525 

3333 


DCA 

INTEND 

643 






644 

00526 

7402 

EXRET, 

HLT 


645 




IFZERO 

HGHFLO 

646 

00527 

2035 


ISZ 

TSWFLG 

647 




IFZERO 

HGHFLO 

648 




JMP 

.♦3 

649 




ION 


650 




JMP 

ECOIF0 

651 




ION 


652 




> 


653 

00530 

5420 


JMP I 

LOC20 

654 

00531 

6203 

ECDIF0, 

COF CIF 

0 

655 

00532 

5771 


JMP I 

(TSTOP 

656 






657 

00533 

0226 

INTEND, 

•SKCHN 
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/GET THE AODRESS OF THE SKIP 


/IF ARGUMENT LOC IS NON-ZERO, 

/IT IS ALREADY IN THE SKIP CHAIN - IGNORE 
/CHAIN IT TO THE ENO OF THE CHAIN 


/GET CDF TO NEW "LAST SKIP" 

/CDF TO FLD OF OLD "LAST SKIP" AND INH INTS 
/CORRECT I,F, FRC'M LAST KLUDGEV INSTRUCTION 
/UPDATE "LAST SKIP" FIELD TO NEW ONE 


/CHAIN OLD SKIP TO NEW ONE 


/UPDATE POINTER TO END OF SKIP CHAIN 

/CDF CIF RETURN FIELD (ALSO INHIBIT INTERRUPTS) 
«IOF> /INTERRUPTS OFF FOR 1321 

/ALLOW TASK SWITCHING (SKIPS IF RESCAN NECESSARY) 
« 

/NO RESCAN NECESSARY 

/TASK SWITCHING STILL INHIBITED, TURN ION AND 

/STOP CURRENT JOB AND GO TO RESCAN 

/NOW ITS SAFE TO TURN INTERRUPTS BACK ON 

/RETURN TO CALLING TASK 

/OOPS • WE MUST TASK SWITCH IMMEDIATELY! 

/GO STOP THIS TASK AND RUN SOMEONE ELSE 


36 





/RTS-8 SMALL REAL TIME SYSTEM VI 


FAL8-V9D 09/11/75 RACE IS 


658 

659 

660 
641 
641 
665 

664 

665 

666 
667 
666 
649 

670 
471 

671 
675 

674 

675 

676 
67? 
678 
479 


XRNOEP SWAPPER < 

/RTS-S SCHEDULER • SCANS TASK PLA6S TABLE TO DETERMINE HIGHEST 
/PRIORITY RUNNABLE TASK • RUNS WITH INTERRUPTS ON (SOMETIMES) 
/AND IS STATELESS, 


FINDJf CLA CLL ZAC /CODE TO FIND FIRST RUNNABLE TASK 
OCA TASKS /INITIALIZE TASK NUMBER 
OCA 8VSFLS /THE MACHINE STATE IS NOW UNIMPORTANT 
CLA IAC /AND WE SHOULD RE-ENABLC TASK SWITCHING 

OCA 7SNFLS /SO THAT IF A TASK BECOMES RUNNABLE 
TAD (TPTABL /AFTER WE SCAN IT, XT WILL INTERRUPT 

OCA XR /THE SCAN LOOP AND RUN, 

FINOJl, IPNZRS HOHELD «CXF f» /AS WE SEARCH A TASK'S ENTRY IN THE LIST, 

xpzeto hohpld 4xop» 

TAD I XR /WE ASSUME THAT TASK'S PRIORITY 

SNA CLA /LOOK FOR FIRST TABLE ENTRY OF 0 

JMP I (STARTJ /(THERE HAS TO BE ONE • NAMELY THE NULL TASK) 

IFIERO HSHPLO «ION» 

III TASKS /BUMP THE TASK NUMBER (AND PRIORITY) 

/ALLOW INTERRUPTS FOR ONE CYCLE SINCE 
JMP FINDJL /"TASK" IS BIGGER THAN CURRENT REJECTED TASK 


37 
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680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 


IFDEF SWAPPER « 

/RTS-8 SCHEDULER • SCANS TASK FLAGS TABLE TO DETERMINE HIGHEST 
/PRIORITY RUNNABLE TASK • RUNS WITH INTERRUPTS ON (SOMETIMES) 
/AND IS STATELESS, 

/THIS SCHEDULER, USED WITH THE SWAPPER, 13 SLIGHTLY 

/SLOWER THAT THE PREVIOUS SCHEDULER, USEO WITHOUT THE SWAPPER, 


/•* NOTE! AC MAY HE NON-ZERO ON ENTRY 


00534 

7301 

FINDJ, 

CLA CLL 

I AC 

/CODE TO FINO FIRHT RUNNABLE TASK 


00535 

3032 


DC A 

TASKS 

/INITIALIZE TASK NUMBER 


00536 

3034 


DC A 

SVSFLG 

/THE MACHINE STATIi IS NOW UNIMPORTANT 


00537 

7201 


CLA IAC 


/ANO WE SHOULO RENEWABLE TASK SWITCHING 


00540 

3035 


DC A 

tswflg 

/SO THAT IF A TASK BECOMES RUNNABLE 


00541 

1370 


TAO 

(TFT ABL 

/AFTER WE SCAN IT IT WILL INTERRUPT 


00542 

3017 


DC A 

SR 

/THE SCAN LOOP AND RUN, 


00543 

6202 

FINDJL, 

IFNZRO 

MGHFLO 

«CIF 0>/AS WE SEARCH A TASK'S ENTRY IN THE LIST 




IFZERO 

HGHFLO 

«IOF> 


00544 

1417 


TAD I 

SR 

/WE ASSUME THAT TASK'S PRIORITY 


00545 

7104 


CLL RAL 


/NON-RESIDENT BIT TO LINK 


00546 

7640 


SZA CLA 


/LOOK FOR FIRST TABLE ENTRY OF 0 


00547 

5363 


JMP 

NORUN 

/(THERE HAS TO BE ONE • NAMELY THE NULL 

TASK) 

00550 

7420 


SNL 


/IS HE NONRESIDENT 


00551 

5767 


JMP I 

(STARTJ 

/NO 1 START HIM UP 


00552 

7140 


CLL CMA 




00553 

1017 


TAO 

SR 



00554 

3017 


OCA 

SR 

/BACK UP AUTOBUMP REGISTER 





IFNZRO 

ESEC-SWPWT <^ERRORI CALESC ,NE, SWPWT^> 


00555 

1026 


TAD 

CALESC 

/AC ■ "SWPWT" 


00556 

3417 


DCA I 

SR 

/PUT HIM IN SWAP WAIT 


00557 

1366 


TAO 

(-RUNWT-1 


00560 

0765 


AND I 

(SWAPPER-TFTABL 


00561 

3765 


DCA I 

(SWAPPER*TFTABL 


00562 

5334 


JMP 

FINDJ 

/FIND SOMEONE ELSE • HOPEFULLY SWAPPER 




NORUN, 

IFZERO 

HGHFLO 

«ION> 


00563 

2032 


ISZ 

TASKS 

/BUMP THE TASK NUMBER (ANO PRIORITY) 







/ALLOW INTERRUPTS FOR ONE CYCLE SINCE 


00564 

5343 


JMP 

FINDJL 

/"TASK" IS BIGGER THAN CURRENT REJECTED 

TASK 


00565 1410 

00S66 6777 

00567 0306 

00570 1367 

•0571 1016 

00572 0325 

00573 1005 

00574 0070 

00575 1244 

00576 0017 

00577 0020 

0600 PAGE 


30 
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/RTS-8 SHALL REAL TIME SYSTEM V2 

730 /SEND A MESSAGE TO A TASK 

731 


732 

006BB 

7240 

XSENOW# STA 


733 

00611 

3331 

XSENO , DCA 

8 WTFLG 

734 

00602 

1420 

TAO I 

LOC20 

735 

00603 

2020 

ISZ 

LOC20 

736 

00604 

3027 

DCA 

ACARG 

737 

00605 

1420 

TAD I 

LOC20 

731 

00606 

3360 

DCA 

MSGADR 

739 

00607 

1760 

TAD I 

MSGADR 

740 

00610 

7650 

SNA CLA 


741 

00611 

5217 

JMP 

MSGFRE 

742 

00612 

7346 

AC7T75 


743 

00613 

1020 

TAO 

LOC20 

744 

00614 

3020 

OCA 

LOC20 

749 

00615 

1360 

MBEFWT, TAD 

MSGADR 

746 

00616 

5777 

JMP I 

(WAITS 

747 

00617 

2020 

MSGPREf ISZ 

LOC20 

740 

00620 

1027 

TAD 

ACARG 

719 

00621 

430) 

JMS 

8RC0MN 

7S0 

00622 

3266 

DCA 

MSGCDF 

711 

00623 

1621 

TAD 

DCDF 

752 

00624 

3292 

ADDTOQ# DCA 

MPTCOF 

753 

00625 

7201 

CLA I AC 


754 

00626 

1030 

TAD 

MPTR 

755 

00627 

3031 

OCA 

MPT2 

756 

00630 

1431 

TAD I 

MPT2 

757 

00631 

3042 

OCA 

T 

75S 

00632 

1430 

TAO I 

MPTR 

759 

0063) 

7410 

SNA 


760 

00634 

5252 

JMP 

ENDOFQ 

761 

00635 

3236 

DCA 

NXTCOF 

762 



RCVPTR i 


763 

00636 

7402 

NXTCDF , HLT 


764 

00637 

7350 

AC3777 


765 

00640 

0442 

AND I 

T 

766 

00641 

7141 

CIA CLL 


767 

00642 

1032 

TAD 

T ASK X 

768 

00643 

7620 

SNL CLA 


769 

00644 

5252 

JMP 

ENOOFQ 

770 

00645 

7201 

CLA IAC 


771 

00646 

1042 

TAD 

T 

772 

00647 

3030 

DCA 

MPTR 

773 

00650 

1236 

TAD 

NXTCOF 

774 

00651 

9224 

JMP 

ADDTOQ 


/SET OR 

/CLEAR WAIT FLAG 
/GET THE 

/TASK NUMBER FROM THE ARGUMENT LIST 
/GET THE ADDRESS OF THE MESSAGE 


/IS THE MESSAGE ALREADY IN A QUEUE? 
/NO 


/BUMP PC BACK TO 00 CALL AGAIN 

/WAIT FOR MESSAGE TO BE FREE 

/GET THE ADDRESS OF THE TARGET TASKS* 

/MESSAGE QUEUE POINTER 

/SAVE CDF TO N|N MESSAGE'S FIELD 

/SAVE CDF TO FIELD OF CURRENT QUEUE POINTER 


/GET POINTER TO SECONO WORD OF POINTER 

/SAVE ADDRESS OF NEXT QUEUE ENTRY 
/FIRST WORD IS A CDF 
/ZERO TERMINATES THE QUEUE 

/SAVE COF 


/FIRST WORD OF MESSAGE HEADER IS TASK* 
/COMPARE TO NUMBER OF SENOING TASK 
/IF NUMBER IS LOWER WE INSERT 
/THE MESSAGE BEFORE THIS ONE 


/OTHERWISE GO ON TO THE NEXT 
/QUEUE ENTRY 


39 


/RTS-6 

SMALL 

REAL 

775 



776 



777 



778 

00652 

7402 

779 

00653 

1430 

780 

00654 

3252 

70i 

00655 

1266 

782 

00656 

3430 

783 

00657 

1360 

784 

00660 

3431 

785 

00661 

6002 

786 

00662 

1027 

787 

00663 

4776 

788 

00664 

0220 

789 

00665 

1032 

790 

00666 

7402 

791 

00667 

6001 

792 

00670 

3760 

793 

00671 

2360 

794 

00672 

1252 

795 

00673 

3760 

796 

00674 

2360 

797 

00675 

1042 

798 

00676 

3760 

799 

00677 

2331 

800 

00700 

5775 

801 



802 

00701 

7344 

803 



804 

00702 

5215 

805 



606 



607 

00703 

0000 

606 

00704 

7104 

809 

00705 

1374 

610 

00706 

3030 

811 

00707 

6201 

812 

00710 

7344 

613 

00711 

1773 

614 

00712 

5703 
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/COME HERE WHEN WE HAVE FOUND THE PLACE TO INSERT THE MESSAGE 

enoofq, 

MPTCOF, 


HLT 
TAD I 
OCA 
TAD 
OCA I 
TAD 
DCA I 
IOF 


MPTR 

MPTCOF 

MSGCDF 

MPTR 

MSGADR 

MPT2 


/SET OF TO FIELD OF PREVIOUS POINTER 

/SAVE PREVIOUS COF 

/LINK THE NEW MESSAGE BETWEEN TWO 

/EXISTING MESSAGES ON THE QUEUE 

/OK • HALF THE LINKAGE IS DONE 

/MUST TURN INTERRUPTS OFF TO CALL FREEJ l 


3RC0MN, 


TAD 

ACARG 


JMS I 

(FREEJ 

/CLEAR MESSAGE WAIT BIT FOR RECEIVER 

MSGWT1E0RMWT 

/(DO IT NOW SO OF WILL BE CORRECT LATER) 

TAD 

TASKX 

/*•* COOE IN THIS RANGE MUST NOT TOUCH LINK *< 

HLT 


/* NOW GO TO THE MESSAGE'S DATA FIELD 

ION 


/* WE'RE SAFE * TURN INTERRUPTS ON 

DCA I 

MSGADR 

/* STORE THE SENDING TASK NUMBER 

ISZ 

MSGADR 

/* 

TAO 

MPTCOF 

/* 

DCA 1 

MSGADR 

/* STORE CDF TO NEXT MESSAGE IN Q 

ISZ 

MSGADR 

/* 

TAD 

T 

/* 

DCA I 

MSGADR 

/* STORE ADDRESS OF NEXT MESSAGE IN Q 

ISZ 

SWTFLC 

/* SHOULD WE WAIT ON THIS MESSAGE? 

JMP I 

(POSTEX 

/* NO • RUN RECEIVER IF ITS 
/* HIGHER PRIORITY , ELSE EXIT 

AC7776 


/DON'T WORRY ABOUT RECEIVER * 

/WAITING WILL FORCE RESCAN OF TASK LIST - 

JMP 

MSEFWT 

/GO WAIT ON MESSAGE EVENT FLAG 

/** DF MUST BE SET TO CALLER'S FIELD HERE ** 

0 


/SUBROUTINE USED BY SEND AND RECEIVE 

CLL RAL 


/GET POINTER TO A TASK'S 

TAD 

(MSGTBL 

/MESSAGE QUEUE POINTER 

OCA 

CDF 0 
AC7776 

MPTR 


TAD I 

(EXRET 


JMP I 

SRCOMN 






/RTS-8 

•hall 

REAL 

time SYSTEM V2 
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815 



/RECEIVE A MESSAGE FROM 

THE TASK'S MESSAGE QUEUE 

81b 







817 

00713 

1032 

XRECEXV'TAD 


TASKX 


818 

00714 

4303 

JMS 


8RC0MN 

/GET THE MESSAGE QUEUE PTR FOR THXS TASK 

819 

00713 

3360 

OCA 


STOCOF 

/SAVE COF TO CALLING FIELD 

820 

00716 

1021 

TAO 


DCDF 


821 

00717 

3332 

rcvlp* oca 


PRVCDF 

/SAVE PREVIOUS Q ENTRIES' FIELD 

822 

00720 

1430 

TAD 

X 

MPTR 

/GET MESSAGE QUEUE POINTER 

823 

00721 

7450 

SNA 



/IF ZERO, THERE ARE NO MESSAGES XN THE Q 

824 

00722 

5772 

JMP 

X 

(MAXTM3 

/SO HANG THE TASK 

823 

00723 

3331 

DCA 


CHNCDF 


82b 

00724 

7201 

CLA 

XAC 



827 

00725 

1030 

TAD 


MPTR 


828 

00726 

3031 

DCA 


MPT2 

/GET POINTER TO SECOND WORD OF Q POINTER 

829 

00727 

1431 

TAD 

I 

MPT2 


630 

00730 

3236 

DCA 


RCVPTR 


831 



SWTFLG* 




632 

00731 

7402 

CHNCDF , MLT 



/CDF TO FXELO OF Q ENTRY 

633 

00732 

1027 

TAD 


ACARG 

/ACARG CONTAINS TASK DEDICATION (IF ANY) 

634 

00733 

7041 

CXA 




835 

00734 

7440 

8ZA 



/IS RECEIVER DEDICATED TO ANVONET 

836 

00735 

1636 

TAD 

I 

RCVPTR 

/YES • CHECK ORIGIN OF THIS MESSAGE 

837 

00736 

2236 

XSZ 


RCVPTR 


638 

00737 

7104 

CLL 

RAL 


/HIGH-ORDER BIT (WAIT BIT) IRRELEVANT 

839 

00740 

7650 

SNA 

CLA 


/CAN THIS MESSAGE BE RECEXVEDT 

840 

00741 

5346 

JMP 


RCVOK 

/YES • PASS IT ON 

841 

00742 

1236 

TAD 


RCVPTR 

/NO • CHAIN TO NEXT MESSAGE IN Q 

642 

00743 

3030 

DCA 


MPTR 


643 

00744 

1331 

TAD 


CHNCOF 


644 

00745 

3317 

JMP 


RCVLP 


845 







84b 

00746 

1636 

RCVOKi TAD 

I 

RCVPTR 

/GET FIRST WORO OF ENTRY 

847 

00747 

3042 

DCA 


T 


846 

00750 

2236 

XSZ 


RCVPTR 


849 

00751 

1636 

TAD 

I 

RCVPTR 


850 

00752 

7402 

PRVCDP« HLT 



/SET FXELO OF PREVIOUS Q ENTRY 

851 

00753 

3431 

OCA 

I 

MPT2 

/SET PREV Q ENTRIES' POINTER (BOTH WOR08) 

852 

00754 

1042 

TAD 


T 

/TO THE CONTENTS OF THXS 0 ENTRIES' 

853 

00753 

3430 

DCA 

X 

MPTR 

/POINTER* REMOVING THIS ENTRY FROM THE Q 

654 

00756 

7201 

CLA 

XAC 


/FORM A POINTER TO THE FIRST WORO OF 

855 

00757 

1236 

TAD 


RCVPTR 

/INFORMATION IN THE REMOVED MESSAGE 

85b 



MSGADR , 




857 

00760 

7402 

STOCOF, HLT 




858 

00761 

3420 

DCA 

I 

LOC20 

/AND STORE XT IN THE FIRST ARGUMENT 

859 

00762 

2020 

ISZ 


LOC20 


860 

00763 

1331 

TAD 


CHNCOF 

/RETURN WITH CDF TO MESSAGE XN AC 

861 

00764 

5773 

JMP 

I 

(EXRET 


862 

00772 

1000 





863 

00773 

0526 





864 

00774 

1176 





865 

00775 

1056 





866 

00776 

1102 





867 

00777 

1126 





868 


1000 

PAGE 




/RTS-8 

SMALL 

REAL 

TIME SYSTEM V2 
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869 



/WAIT FOR MESSAGE 


870 






871 

01000 

7344 

WAITM3, AC7776 



872 

01001 

1020 

TAD 

LOC20 


873 

01002 

3020 

DCA 

LOC20 

/MOVE PC BACK TO "JMS 20" 

874 

01003 

7120 

STL 


/SET LINK TO PRESERVE AC ACROSS "TSTOP" 

875 

01004 

1377 

TAD 

(MSGWT 

/BLOCK TASK ON MESSAGE WAXT 

876 






877 



/COME HERE WITH 

BLOCKING 

i BITS IN AC, 

878 



/TASK AC WILL BE 

: cleared 

l IF LINK IS 0* PRESERVED IF LINK IS 1 

879 






880 

01005 

3344 

TSWAIT, DCA 

BLKM3K 

/ENTER HERE WITH SLOCKING BITS IN AC 

881 






882 

01006 

1032 

TSWATX, TAD 

TASKX 

/ENTER HERE WITH ULOCKING BITS IN "BLKMSK" 

883 

01007 

1376 

TAD 

(TFT ABL 

/GET INDEX INTO JOB FLAGS TABLE, 

884 

01010 

3042 

DCA 

T 


885 

01011 

1344 

TAD 

BLKMSK 

/GET BLOCKING BIT!) 

886 

01012 

6201 

CDF 0 



887 

01013 

3442 

DCA I 

T 

/NO NEED TO OR THEM IN • WORO WA8 ZERO BEFORE, 

888 

01014 

6001 

ION 


/(IN CASE WE CAME FROM "WAITE" OR "WAITM") 

889 

01015 

7420 

SNL 


/SHOULD WE CLEAR ’’ASK ACT 

890 






891 

01016 

3027 

TSTOP, DCA 

ACARG 

/ENTER HERE WITH TASK AC IN AC 

892 

01017 

1032 

TAD 

TASKX 

/TO STOP THE CURRENT TASK BUT NOT BLOCK IT. 

893 

01020 

7106 

CLL RTL 


/GET A POINTER INTO THE TASK'S STATE TABLE ENTRY 

894 

01021 

1375 

TAD 

(TSTABL-1 

895 

01022 

3017 

DCA 

XR 


896 

01023 

6201 

CDF 0 



897 



IFNZRO 

hghfld 

< 

898 

01024 

1774 

TAD I 

(EXRET 


899 

01025 

7110 

CLL RAR 



900 

01026 

7012 

RTR 



901 

01027 

1774 

TAO I 

(EXRET 


902 

01030 

1373 

TAD 

(•5023 

/5023 P 6203 ♦ (62B3 SHIFTED RIGHT 3) 

903 



> 



904 

01031 

3417 

DCA I 

XR 

/STORE RETURN IF AND OF-IF 

905 

01032 

1020 

TAD 

LOC20 


906 

01033 

3417 

OCA I 

XR 

/STORE RETURN PC 

907 

01034 

1027 

TAO 

ACARG 


908 

01035 

3417 

DCA I 

XR 

/STORE RETURN AC 

909 



IFNZRO 

EAE 

< 

910 

01036 

7501 

MQ A 


/EVEN PRESERVE THE MQ OVER MONITOR CALLS 

911 

01037 

3417 

DCA I 

XR 

/(WHAT THE HECK* ITS ONLY 2 INSTRUCTIONS) 

912 



> 



913 


0044 

IFDEF 

SWAPPER 

wSWPENT■COMMAND*1 /2ND SWAPPER ENTRY POINT 

914 

01040 

1043 

TAO 

COMMAND 


915 

01041 

7710 

SPA CLA 


/FREE THE PARTITION? 

916 

01042 

4444 

JMS I 

SWPENTw 

/YES * LET SWAPPER CODE DO IT 

917 

01043 

5772 

JMP I 

(FINOJ 

/NO 1 FIND NEXT TASK TO RUN 


42 



/RTS-8 SHALL REAL TIME SYSTEM V2 PAL8-V90 


918 



/SCHEDULE A 

TASK 

: TO BE 

919 







920 

01044 

1371 

XRUN, 

TAD 


(RUNWT 

921 

01045 

5250 


JMP 


UNBLOK 

922 







923 

01046 

1420 

XUNBARGi 

iTAD 

I 

LOC20 

924 

01047 

2020 


ISZ 


LOC20 

925 







926 

01050 

3254 

UNBLOK, 

OCA 


UNBMSK 

927 

01051 

1027 


TAD 


ACARG 

928 

01052 

6002 


IOF 



929 

01053 

4302 


JMS 


FREEJ 

930 

01054 

0000 

UNBMSK , 

0 



931 

01055 

6001 


ION 



932 

01056 

7620 

POSTEX, 

3NL 

CLA 


933 

01057 

5774 


JMP 

I 

(EXRET 

934 

01060 

5216 


JMP 


TSTOP 

935 







93b 







937 



/SUSPEND EXECUTION OP , 

938 







939 

01061 

1371 

XSUSPNO, 

,TAD 


(RUNWT 

940 

01062 

5265 


JMP 


BLOK 

941 







942 

01063 

1420 

XBLKARGi 

i TAD 

I 

LOC2B 

943 

01064 

2020 


ISZ 


LOC20 

944 

01065 

3344 

BLOK, 

OCA 


BLKMSK 

945 

01066 

1027 


TAD 


ACARG 

946 

01067 

7450 


SNA 



947 

01070 

5206 


JMP 


T8WATX 

948 







949 



/ 

* 



950 



/ 




951 







952 

01071 

6201 


CD P 

0 


953 

01072 

1376 


TAD 


(TPTABI 

954 

01073 

3042 


DCA 


T 

955 

01074 

1344 


TAD 


BLKMSK 

956 

01075 

7040 


CMA 



957 

01076 

0442 


AND 

I 

T 

958 

01077 

1344 


TAO 


BLKMSK 

959 

01100 

3442 


DCA 

I 

T 

960 

01101 

5774 


JMP 

I 

(EXRET 


••/!!/?$ PAGE 14 


/UNBLOCKING COOK IN ARGUMENT 

/AC CONTAINS REASON FOR UNBLOCKING TASK "ACARG" 

/FREEJ IS AN INTERRUPTHEVEL ROUTINE! 

/REMOVE THE GIVEN BLOCKING BIT 

/SHOULD THE NEW TASK BE RUN NOWT 
/NO 

/YES-PUT TASK TO BLEEP WITHOUT BLOCKING IT 
TASK 

/BLOCKING CODE IN ARGUMENT 

/SAVE BLOCKING CODE 
/GET TASK TO BE BLOCKED 

/0 MEANS CURRENT TASK! 

NOTE THE LINK IS RANDOM MERC BUT SINCE ACAR6«0 
IT DOESN'T MATTER IP WE CLEAR IT OR NOT 

/GET THE BLOCKING PLAG(S) 

/OR THEM INTO THE TASK PLAG WORD 
/THIS OOESN'T AF'ECT US • JUST RETURN 


« 




43 


/RTS-8 

SMALL 

REAL 

TIME SYSTEM \ 

i/2 

PALB-V9D 09/11/75 

961 



/routine TO 

UNBLOCK A TASK'S EXECUTION 

962 



/ENTER WITH 

TASK# IN ACi 

t INTERRUPTS OFF, 1 

963 







964 

01102 

0000 

FREEJ, 0 




965 

01103 

6201 

CDF 

0 



966 

01104 

1376 

TAD 


(TFT ABL 


967 

01105 

3033 

DCA 


INTT 


968 

01106 

1702 

TAD 

I 

FREEJ 

/GET UNBLOCKING E 

969 

01107 

2302 

ISZ 


FREEJ 

/BUMP RETURN POI6 

970 

01110 

7040 

CMA 




971 

01111 

0433 

ANO 

I 

INTT 


972 

01112 

3433 

DCA 

I 

INTT 

/REMOVE THE FLAG 1 

973 

01113 

1433 

TAD 

I 

INTT 


974 

01114 

7104 

CLL 

RAL 



975 

01115 

7650 

SNA 

CLA 


/IF THE TASK IS M 

976 

01116 

1032 

TAD 


TASKX 

/AND HAS A HIGHEF 

977 

01117 

1376 

TAD 


(TPTABL 

/RUNNING TASK, RE' 

978 

01120 

7161 

CIA 

STL 



979 

01121 

1033 

TAO 


INTT 


980 

01122 

7200 

CLA 



/OTHERWISE RETURK 

981 

01123 

5702 

JMP 

I 

FREEJ 



UNBLOCKING BIT IN CALL*! 


44 
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/RTS-8 SMALL REAL TIME SYSTEM V2 


982 

983 


/WAIT FOR EVENT FLAG 


984 

01124 

1420 

XWAXTE, 

, TAO I 

LOC20 

905 

01125 

2020 


xsz 

LOC20 

984 

01128 

3042 

WAITS, 

OCA 

T 

987 




XFZERO 

HGHFLD 

988 

01127 

8202 


XFNZRO 

HGHPLD 

989 

01110 

1442 


TAD I 

T 

990 

01131 

7850 


SNA CLA 


991 

01132 

5774 


JHF I 

(EXRET 

992 

01133 

8002 


XOF 


993 






994 

01134 

7330 


AC4000 


995 

01135 

1032 


TAD 

TA8KX 

998 

01138 

3442 


DCA I 

T 

997 

01137 

1370 


TAD 

(EFWT 

990 

01140 

5205 


JMP 

TSWAXT 

999 






1000 






1001 



/POST 

AN EVENT 

FLAG 

1002 






1003 

01141 

1420 

XP08T, 

TAD I 

LOC20 

1004 

01142 

2020 


ISZ 

LOC20 

1005 

01143 

3344 


DCA 

.♦1 

1008 

01144 

7402 

blkmsk 

, HLT 



1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 
1018 

1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 

1025 
1028 


01145 7330 

01148 1427 

01147 3042 

01150 3427 

01151 7420 

01152 5774 

01153 1042 

01154 3027 

01155 1347 

01158 5250 

01187 2200 

01170 2000 

01171 1000 

01172 0534 

01173 2755 

01174 0526 

01175 1243 

01178 1387 

01177 0020 

1200 


AC4000 

TAD I 

DCA 

DC A X 

3NL 

JMP X 

TAD 

DCA 

TAD 

JMP 


ACARG 

T 

ACARG 


/GET ADDRESS OF EVENT FLAG 

/ENTER HERE FROM SEND 

«IOF> /INHIBIT INTERRUPTS 

«CXF 0» /WHILE TESTING PLAG1 

/EVENT FLAG IS IN SAME FIELO AS CALL 

/ZERO MEANS EVENT COMPLETED 

/SO EXIT IMMEDIATELY 

/INTERRUPTS MUST BE OFF BETWEEN SETTING EF 
/AND SETTING EF WAIT! 

/SET EVENT FLAG TO TASK NUMBER 

/WITH HIGH-ORDER BIT ON TO INDICATE 

/THAT TASK IS WAITING FOR EVENT COMPLETION 

/AND BLOCK CURRENT TASK ON EVENT WAIT 
/*• NOTE LINK-0 SO ACARG WILL BE CLEARED ** 


/GET DATA FIELD OF EVENT FLAG 
/CDF TO IT 

/ADDRESS WAS IN AC AT CALL 
/ZERO EVENT FLAG 

/WAS A TASK WAITING ON EVENT FLAGS 
/NO - WE'RE DONE 

/YES • LOW OROER BITS ARE TASK NUMBER 


(CXRET 
T 

ACARG 

(EFWT1EORMWT 

UN8L0K /UNBLOCK THIS TASK FROM EVENT FLAG WAIT 


/RTS-8 

SMALL 

REAL 

TIME SYSTEM V2 

PAL8-V9D 09/11/7! PAGE 27 

1027 



/DUMMY TABLE ENTRIES (EACH TASK OVERLAYS ITS ENTR^ 

1028 





1029 

01200 

0000 

MSGTBX, ZBLOCK 

NT A8K8*2 

1030 

01246 

0000 

0|0 

/MESSAGES FOR NILL TASK 

1031 

01247 

0000 



1032 

01250 

0000 

TSTABX, ZBLOCK 

NTA8KS*4 

1033 

01364 

0000 

0 


1034 

01365 

1366 

.♦1 

/FIELDS, PC, AC FOR NULL ' 

1035 

01366 

3034 

DCA 

svsflg /null task runs stateless 

1036 

01367 

5367 

JMP 

■ 

1037 





1038 



tftabx, ifnzro 

NTASKS140 < 

1039 



lllMlllltlllllllllMIlllllllMMIlllIlM 

1040 



IFNZRO 

NT ASKS420 « 

1041 

01370 

0001 

1!1MI1MMMHI1MMMMMMM> 

1042 

01371 

0001 



1043 

01372 

0001 



1044 

01373 

0001 



1045 

01374 

0001 



1046 

01375 

0001 



1047 

01376 

0001 



1048 

01377 

0001 



1049 

01400 

0001 



1050 

01401 

0001 



1051 

01402 

0001 



1052 

01403 

0001 



1053 

01404 

0001 



1054 

01405 

0001 



1055 

01406 

0001 



1056 

01407 

0001 



1057 



IFNZRO 

NTASKS&10 < 

1058 



tflMmillMM> 

1059 



IFNZRO 

NTASKS&4 <l|l|lll> 

1060 

01410 

0001 

IFNZRO 

NTASKS&2 <1|1> 

1061 

01411 

0001 



1062 

01412 

0001 

IFNZRO 

NTASKS81 <1> 

1063 

1064 

01413 

0000 

0 

/NULL TASK ALWAYS RUNNABL 

1065 

1066 



IFNZRO 

tftabx-tftabl-i <tblerr,^,.error^ 

1067 



IFOEF 

SWAPPER < 

1068 


1414 

♦RESTBL 


1069 

01414 

0000 

ZBLOCK 

NTASKS-SWAPPER"2 

1070 


1420 

•PARTBL 


1071 



ZBLOCK 

PARTNS*4 

1072 



> 


1073 





1074 



S-S-0 



<lb 



pAie-vto 00/11/75 pace <s 


/RTS-i 

SHALL 

REAL TIME 

SYSTEM 

acarg 

0027 

INTRPT 

0204 

AC0002 

732k 

INTT 

0033 

AC2000 

7332 

LINC 

6141 

AC3777 

7350 

LOC20 

0020 

AC4000 

7330 

LPT 

0004 

AC7771 

7346 

LT A 

0006 

AC7776 

7344 

MCR 

0005 

ADOTOQ 

0624 

MCREF 

0041 

BLKARG 

0010 

MCRSYS 

0001 

blkmsk 

1144 

MPTCDF 

0652 

BLOK 

1065 

MPTR 

0030 

BSKCHN 

0226 

MPT2 

0031 

CAFHLT 

6007 

MSEFWT 

0615 

CAL 

4020 

hsgaor 

0760 

CALEXC 

0026 

MSGCOF 

0666 

CAIIOF 

0022 

MSGFRE 

0617 

CHECKP 

0001 

MSGTBL 

1176 

CHNCOF 

0731 

MSGTBX 

1200 

CLKQLN 

0020 

MSGWT 

0020 

clktvp 

0000 

netwt 

0010 

CLOCK 

0001 

NEWTSK 

0201 

CMOJMP 

0422 

nonrwt 

4000 

comman 

0043 

NORUN 

0563 

CS A 

0013 

NOSVST 

0303 

CSAF 

0014 

NT ASKS 

0023 

0A7E 

0040 

NXTCDF 

0636 

OCOF 

0021 

OSFILL 

0004 

DCDIF0 

0232 

osflds 

0002 

DERAIL 

0007 

OSKBOV 

0030 

DF32 

0012 

OSSYSD 

0010 

DI5MI3 

0325 

OSTTDV 

0031 

DNEWT 

0011 

OSB 

•023 

ORLCDF 

0454 

OSSF 

0020 

DSP0S7 

0235 

PART0L 

1420 

DTA 

0007 

PARTNS 

0000 

EAE 

0001 

POP 

0002 

ECDIF0 

0531 

P0P12 

0000 

EFWT 

2000 

P0P8E 

0001 

ENABWT 

0040 

PFLADR 

0003 

ENOOFU 

0652 

PFLRTN 

0222 

EORHWT 

0200 

POST 

0005 

ESF 

0004 

posto» 

5424 

EXEC 

0400 

POSTEX 

1056 

EXRET 

0526 

prvcof 

0752 

FINOJ 

0534 

pwflef 

0221 

FINOJL 

0543 

PWRF 

0002 

FREE 

4000 

PwRFAL 

0001 

FREE J 

1102 

RCVLP 

0717 

HERTZ 

0170 

RCVOK 

0746 

HGHFLO 

0030 

RCVPTR 

0636 

ICS 

0016 

RECEIV 

0001 

INTAC 

0203 

restbl 

1414 

INTCOF 

0513 

RF0B 

0011 

INTEND 

0533 

RK6 

0010 

INTFGS 

0202 

RUN 

0003 


runwt 

1000 

XUN0AR 

1946 

RXSA 

0017 

XWAITE 

1124 

SEND 

• 000 

XWAXTM 

0463 

SENDW 

0011 



SHERTZ 

0074 



SINT 

6254 



SKPIN0 

0006 



SPL 

6102 



SRCOHN 

0703 



STARTJ 

0306 



STOCOF 

0760 



STOPJ 

0265 



SUF 

6274 



SUNIT 

0000 



SUIPND 

• 004 



svsflg 

0034 



SHAPPE 

0021 



SWPENT 

0044 



0WPWT 

• 400 



swtflg 

0731 



SYS 

0010 



T 

•042 



TASKS 

0032 



TFTABL 

1367 



TFTA0X 

1370 



TOOH 

0037 



TOOL 

0036 



T0TABL 

1244 



TSTA8X 

1250 



TSTCLK 

0227 



TSTOP 

1016 



T3WAIT 

1005 



TSWATX 

1006 



tswflg 

0035 



TSSLOC 

0200 



TTY 

0003 



UNBARG 

0012 



UN0LOK 

1050 



UN0M8K 

1054 



USERSK 

0212 



USERMT 

0100 



WASTE 

0002 



WAXTH 

4425 



HAXTM3 

1000 



WAITS 

1126 



XBLKAR 

1063 



XDERAL 

0436 



XPOST 

1141 



XR 

0017 



XRECEX 

0713 



XRUN 

1044 



XSEND 

0601 



X8EN0W 

0600 



X3KPIN 

0476 



XSUSPN 

1061 
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ERRORS OETECTEOl 0 
LINKS GENERATEOt 0 



ACARG 256# 535 374 736 748 786 833 891 907 927 

945 1008 1010 1014 

AC0002 112# 

AC2000 111# 

AC3777 110# 764 

AC4000 109# 404 501 994 1007 

AC7775 108# 742 

AC7776 107# 802 812 871 

ADOTOQ 752# 774 

AO 135# 

BLKARG 130# 

BIKMSK 880 885 944 955 958 1006# 

BLOK 940 944# 

BSKCHN 391# 394 657 

CAPHLT 226 227 229# 351 

CAL 116# 

CALEXC 252 255# 706 707 

CALIOF 251# 287 296 305 314 323 332 341 

CHANGE 276 

CHECK# 54# 

CHNCOP 825 832# 843 860 

CLKQLN 95# 

CLKTYP 94# 

CLOCK 63# 93 

CHDJMP 552 556# 

COHMAN 160# 276 354 547 548 913 914 

CS 138# 

CSA 74# 

C8AF 75# 

CT 136# 

OATE 166 272# 

OCOF 250# 495 581 751 820 

DCOIF0 395# 504 

DERAIL 129# 

0F32 73# 

DISCOF 496 507# 

DISC IF 505 506# 


OISMIS 

391 

397 

402 

414 

424 

477# 

621 




DNEWT 

149# 










DRLCDF 

582 

585# 









OSPOST 

253 

288 

297 

306 

315 

324 

333 

342 

4 01# 


DT A 

69# 










EAE 

50# 

438 

469 

909 







ECDIF0 

541 

606 

624 

628 

650 

654# 





EFNT 

141# 

412 

997 

1015 







ENABWT 

146# 










ENDOFQ 

760 

769 

777# 








EORMWT 

144# 

412 

788 

1015 







ERROR 

276 

352 

706 

1066 







ESF 

236# 

517 









EXEC 

255 

535# 

706 








EXRET 

542 

591 

607 

620 

644# 

813 

861 

898 

901 

933 


960 

991 

1012 








FINDJ 

360 

663 

688# 

712 

917 






FINDJL 

670 

678 

695# 

716 







FREE 

13 3# 










FREE J 

411 

787 

929 

964# 

968 

969 

981 




HERTZ 

97# 










HGHFLD 

52# 

282 

291 

300 

309 

318 

327 

336 

455 

484 


49 



485 

510 

626 

636 

645 

647 

670 


696 

713 

897 

987 

988 



ICS 

76# 







INTAC 

360# 

368 

436 

468 

509 



INTCOF 

629# 

631 

637 





INTEND 

634 

635 

639 

642 

657# 



INTFG3 

359# 

374 

432 

464 

462 

502 


INTRPT 

242 

362# 






INTT 

260# 

380 

386 

403 

405 

407 

967 


979 







IOPRST 

227 

514# 

520 





LINC 

234# 

516 






LOC20 

249# 

543 

544 

545 

550 

571 

572 


615 

616 

653 

734 

735 

737 

743 


859 

872 

873 

905 

923 

924 

942 


1003 

1004 






LPT 

66# 







LTA 

68# 







MCR 

67# 

90 






MCREF 

167 

273# 






MCRST8 

91# 







HPTCOF 

752 

778# 

760 

794 




MPTR 

257# 

577 

579 

583 

584 

590 

754 


782 

810 

8 22 

827 

842 

853 


HPT2 

258# 

755 

756 

764 

826 

829 

851 

hsefwt 

745# 

804 






msgadr 

738 

739 

745 

783 

792 

793 

795 

H8GC0F 

750 

781 

790# 





H86FRE 

741 

747# 






H8GTBL 

152# 

153 

609 





M8CTBX 

1029# 







H8GWT 

147# 

788 

875 





NE 

706 







NETWT 

148# 







NEW73K 

354 

357# 

406 

408 

442 



NORUN 

700 

713# 






NOSVST 

427 

442# 






NT ASKS 

53# 

78 

153 

155 

156 

159 

1029 


1057 

1059 

1062 

1069 




NXTCDF 

761 

763 « 

773 





NZRO 

1040 

1059 






OSFILL 

88# 







osflos 

84# 







OSKBOV 

85# 







OSSYSO 

67# 







OSTTDV 

86# 







OSS 

78# 

63 

363 

416 

489 

497 


OS8F 

79# 







partbl 

159# 

1070 






PARTNS 

55# 

1071 






POP 

235# 

518 






POP 12 

49 

224# 

224 

226 

227 

513 


PDP8E 

46# 

225 

229 

369 

370 

477 

483 

PFLADR 

244# 

361 






PFLRTN 

244 

386# 






POST 

127# 







POSTD3 

117# 

369 






POSTEX 

800 

932# 






PRVCOF 

821 

650# 






pwflef 

365# 

388 







671 675 695 


i 

971 f|72 973 


604 

6199 

610 

744 

747 

858 

943 

9414 

985 


758 772 779 

796 798 856# 


1032 1038 1040 


488 510 


50 



» 


PWRF 64# 

PWRFAL 51# 243 376 371 

RCVLP #21# #44 

RCVOK #41 846# 

RCVPTR 762# #30 636 637 6#1 646 646 649 355 

RECEIV 123# 

REST0L 156# 159 1066 

RF08 71# 

RK6 71# 67 102 

RUN 125# 

RUNWT 142# 709 920 939 

RX8A 77# 

SEND 122# 

SEND* 131# 

SHERTZ 96# 


SINT 

231# 

364 









SKPXNS 

128# 










SPl 

233# 

376 









SRCOHN 

749 

807# 

• 14 

• 18 







STARTJ 

455# 

674 

702 








STOCOF 

619 

857# 









STOPJ 

421 

426# 









8UF 

232# 

499 









SUNIT 

103# 










SUSPND 

126# 










SVSFIG 

262# 

426 

462 

665 

690 

1035 





SWAPPE 

70# 

101 

117 

159 

275 

276 

353 

356 

S46 

650 


660 

710 

711 

913 

1067 

1069 





SWPENT 

913# 

916 









SWPWT 

143# 

706 

706 








SWTFLG 

733 

799 

631# 








SV8 

102# 










T 

274# 

573 

586 

568 

617 

616 

622 

623 

1*25 

633 


641 

757 

765 

771 

797 

847 

652 

664 

1*87 

954 


957 

959 

966 

989 

996 

1009 

1013 




TASKX 

259# 

428 

444 

456 

664 

676 

689 

714 

T67 

789 


817 

882 

• 92 

976 

995 






TBLERR 

1066# 










tftabl 

155# 

158 

666 

693 

710 

711 

683 

953 

*66 

977 


1066 










TFTABX 

1038# 

1066 









TOOH 

165 

271# 









TOOL 

164 

270# 









tstabl 

153# 

155 

430 

458 

576 

694 





TSTABX 

1032# 










TSTCLK 

272 

377 

392# 








TSTOP 

655 

891# 

934 








TSWAIT 

612 

860# 

998 








TSWATX 

682# 

947 









TSWFLG 

163 

265# 

419 

423 

536 

538 

606 

646 

667 

692 

TS8LOC 

351# 

352 

366 









TTY 65# 

UDC 135 

UN6ARG 132# 

UN6LOK 921 926# 1016 

UNBMSK 926 930# 

USERS* 375# 480 

USERWT 145# 

WAITE 124# 

WAITM US# 




51 



WAXTH3 

824 

671# 


WAITS 

746 

986# 


XBIKAR 

565 

942# 


xderal 

564 

571# 


XPOST 

562 

1003# 


XR 

246# 

431 

433 


470 

669 

672 


906 

908 

911 

XRECEI 

558 

817# 


X RUN 

560 

920# 


xseno 

557 

733# 


xsenow 

566 

732# 


xskpin 

563 

615# 


XSUSPN 

561 

939# 


X UNBAR 

567 

923# 


XwAITE 

559 

984 « 


XWAITM 

254 

289 

298 

,00373 

430 

458 


,00374 

417 



,00375 

411 



,00376 

388 



,00377 

381 



,00565 

710 

Ml 


100566 

704 



,00567 

702 



,00570 

693 



,0057 1 

655 



,.00572 

621 



j.0057 3 

612 



,00574 

580 



..00575 

576 



,00576 

551 



,.0057 7 

543 



,00772 

824 



..00773 

813 

861 


..00774 

809 



,00775 

800 



,00776 

787 



,00777 

746 



,01167 

1015 



,01170 

997 



j.01 171 

920 

939 


,01172 

917 



,01173 

902 



,01174 

898 

901 

933 

,01175 

894 



,01176 

863 

95 » 

966 

,01177 

875 




435 437 440 459 463 465 467 

694 697 704 705 708 895 904 


307 


316 325 334 


343 602# 603 



960 991 1012 
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/PARAMETERS FOR RTS-8 TASKS 


(VERSION PALS.V90 S9/U/75 PACE 1 


2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 
23 
26 

27 

28 

29 

30 

31 

32 
S3 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 


/PARAMETERS FOR RT8-8 TASKS (VERSION 2) 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT (C) 1974,1975 BY DIGITAL EQUIPMENT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
/CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT, 

/ 

/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM ANO CAN BE COPIED 
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 

/ 

/DIGITAL EQUIPMENT CORPORATION ASSUMES 40 RESPONSIBILITY FOR THE USE 
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
/DIGITAL, 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


/PARAMETERS FOR RTS-8 TASKS 


(VERSION PAL8-V9D 09/11/75 PAGE 2 


45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 


0001 

0000 

0001 

0001 

0030 

0023 

0001 

0000 


/RT88 V2 EXEC PARAMETERS • EOITEO BY USER 

PDP8E-1 

PDP12-0 

EAE-1 

PWRFAL-1 

MGHFLO-30 

NTASKS-23 

CHECKPT-i 

PARTN8-0 

/(THE N PARTITIONS ARE NJMBERED FROM 0 TO N-l) 
/COMMON TASK NUMBERS - EOITEO BY USER 

/IT IS AOVISABLE TO DEFINE ALL TASKS HERE, NAMES GIVEN BELOW 
/ARE U8E0 BY SOME SYSTEM TASKS AND SHOUL) BE DELETED FROM THIS 
/LIST IF THE CORRESPONDING TASK IS NOT IVCLUOED IN THE SYSTEM 


63 

0001 

CLOCK * 1 

64 

0002 

PWRP*2 

65 

0003 

TTY«3 

66 

0004 

LPT-4 

67 

0005 

MCR«5 

68 

000b 

LTA-6 

69 

000 t 

OT A«7 

70 

0021 

SWAPPER-21 

71 

0010 

RK0i10 

72 

0011 

RFB8-11 

73 

0012 

0F32-12 

74 

0013 

CSAb13 

75 

0014 

CSAF-14 

76 

0016 

ICS-16 

77 

0017 

RX8A«17 

78 

0023 

0S8-NT ASKS 

79 

0020 

OS8F-20 

80 



81 


/SOFTWARE PARAMETERS • 

82 



S3 


IFOEF OSS 

84 

0002 

OSFLOS-2 

85 

0030 

OSKBOV-30 

86 

0031 

0STT0V-31 

87 

0010 

0S8YSD-RK8 

88 

0004 

0SFILL-4 

89 


> 

90 


IFOEF MCR 

91 

0001 

MCR8YS-1 

92 


* 

93 


IFOEF CLOCK 

94 

0000 

CLKTVP-0 

95 

0020 

CLKQLN-20 

9fc 


DECIMAL 

97 

0170 

HERTZ-120 

98 

0074 

SHERTZ-60 

99 


OCTAL 




/PARAMETERS POR RTS-8 TASKS 


(VERSION PALS-VfO M/ll/73 PACE 2-1 


iss 

IS! 

its 

its 

ISA 


» 

IFDEF SWAPPER « 

OSH 8Y8-RKS 
•••• SUNIT-B 



55 
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(VERSION PAL8-V9D 09/11/75 PAGE 3 


105 


/EQUIVALENCES! 


107 

108 

109 

110 
111 
112 

113 

114 

115 
lib 
117 

ue 

119 

120 
121 
122 
113 

124 

125 
12b 
127 
12S 

129 

130 

131 

132 

133 

134 

135 
13b 
137 
13S 

139 

140 

141 

142 

143 

144 

145 
14b 
147 
1«S 
149 


7344 

AC7774- 

CLL 

STA 

RAL 

734b 

AC7775- 

CLL 

8TA 

rtl 

7330 

AC40I0- 

CLA 

STL 

RAR 

7350 

AC3777* 

CLL 

STA 

RAR 

7332 

AC2000- 

CLA 

STL 

RTR 

752b 

AC00B2- 

CLA 

STL 

rtl 


/MONITOR CALL VALUES! 

4020 

CAL- 

JMS 


20 

5424 

POSTOS- 

JMP 

I 

24 

4425 

WAITM- 

JMS 

I 

25 

/NOTE! 


/CALL THE EXECUTIVE 
/DISMISS AN INTERRUPT 
/WAIT FOR MULTIPLE EVENTS 

"«*" MEANS CRITICAL VALUE MAY NOT 
/BE CHANGED WITHOUT MODIFYING SYSTEM COOEM 


0000 SENDi 0 
0001 RECEIV* 1 
0002 WAITE- 2 
0003 RUN- 3 
0004 3USPND- 4 
0005 POST- 5 
000b SKPINS- b 
0007 DERAIL* 7 
0014 BLKARG- 10 
0011 SENDW- 11 
0012 UN0ARG- 12 
4000 FREE- 4000 


/SEND MESSAGE 
/RECEIVE MESSAGE 
/WAIT FOR EVENT FLAG 
/CONTINUE TASK EXECUTION 
/SUSPEND TASK EXECUTION 
/POST AN EVENT FLAG 

/INSERT CODE INTO INTERRUPT SKIP CHAIN 
/INITIATE END-ACTION 

/BLOCK TASK FOR REASON SPECIFIED IN ARG 
/SEND MESSAGE AND WAIT 

/UNBLOCK TASK FOR REAHON SPECIFIED IN ARG 
/--FREE PARTITION 


IFDEF UDC <AO-0|OO-llOI«2|GC-3|EC-4|RC-5 

DC-6IECT-7IC3* 10IDCTH 1»AI»12> 


/TASK STATUS FLAGS I 


4000 

NONRWT- 

4000 

/--NONRESIDENT TASK WIIT 

2000 

EFWT- 

2000 

/EVENT FLAG WAIT 

1000 

RUNWT- 

1000 

/SCHEDULE WAIT 

0400 

SwPwT- 

0400 

/--SWAPPER WAIT 

0200 

EORMWT- 

0200 

/EVENT FLAG OR MESSAGE WAIT 

0100 

USERWT- 

0100 

/USER SPECIFIED WAIT 

0040 

ENABwT- 

0040 

/ENABLE WAIT 

0020 

MSGWT- 

0020 

/MESSAGE WAIT 

0010 

netwt- 

0010 

/NETWORK WAIT (RESERVCO FOR 

0001 

DNEWT- 

0001 

/--DOES NOT EXIST WAIT 


POSSIBLE FUTURE USE) 


I 


5b 



% 
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130 

151 

152 

153 

154 
153 
HA 
157 
156 
139 
160 
161 
162 

163 

164 

165 

166 
167 
166 


/SYSTEM LOCATIONS! 


1176 

1244 

1367 


1414 

1420 

0043 


MSGTBL* 1200*2 

TSTABL* NTASKS«2*2*MSGTBL*4 

TFTABL* NTASKS*2”4*TSTABL*1 


/TASK HISSAGE TAILE 
/TASK SI ATE TABLE • HOLDS 
/TASK L1NK ( UM,DP,IP,PC,AC,M0 
/TASK FI AGS TABU • HOLDS 
/TASK S1ATUS FLAGS 

/RESIDENCY TABLE 
/PARTITION TABLE 
/SWAPPER COMMANO BUFFER 


IFDEF SWAPPER 4 
RESTBL* TFTABL9NTASK842 
PARTBL* NTASK8*3WAPPER"2*RESTBL»SS7774 
COMHANDM3 


0035 

TSWFLG* 

35 

0036 

TOOL* 

36 

0037 

TOOH* 

37 

0040 

DATE* 

40 

0041 

MCREF* 

41 


/TASK SW INHIBIT FLAG IN FIELD 
/LOW ORDER TIME OF DAY IN PIELO 
/HIGH ORDER TIME OF DAY IN PXILO 
/DATE IN OSS FORMAT IN FIELD 
/MCR START EVENT FLAG IN FIELD 


0 

0 

0 

0 

0 


57 
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169 



170 



171 



172 


1210 

173 

01210 

0000 

174 


1270 

175 

01270 

0011 

176 

01271 

6011 

177 

01272 

0000 

176 


1374 

179 

01374 

0000 

160 


1246 

161 

01246 

0000 

182 


1364 

183 

01364 

0011 

184 

01365 

6051 

185 

01366 

0000 

186 


1413 

187 

01413 

0000 


/TASK TABLE SETUP • "TASK", "CUR"»"XNIWT", ANO "START" 
/MUST BE OEFINED BY TASK! 


*TA3K*2+M8GTBL 

ZBLOCK 2 

*TA8K*4*TSTABL 

CURX10PCUR 

START 

0 

•task^tftabl 

INIWT 

*TASK2“2*M80TBL 
ZBLOCK 2 
•TASK2*4*TSTABL 
CUR2X1G4CUR2 
8TART2 
0 

•TA8K2*TFTABL 

INIWT2 


/MESSAGE BUFFER INITIALLY CLEAR 
/INITIAL FLAGS 
/INITIAL AC G 

/message buffer initially clear 

/INITIAL PLAGS2 
/INITIAL AC 0 


58 



/MGR ROR RTII VI 

111 

lit 

IN 

HI 

HI 

HI 

HI 

HI 

in 

H7 

HI 

HI 

III 

111 

III 

IIS 

III 

IIS 

III 

117 

III 

III 

III 

111 

111 

IIS 

IU 

115 

111 

117 

111 

111 

III 

111 

III 

IIS 

III 

III 

III 

117 

III 

III 

111 

IS1 
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/HOI FOR ITU VI 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT (C) 1174,1179 IT DIGITAL EQUIPMENT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/THI INFORMATION XN THIS DOCUHINT XI SUBJECT TO CHANGE WITHOUT NOTICE 
/ANO SHOULD NOT IS CONSTRUED AS A COMMITMENT IT DIGITAL EQUIPMENT 
/CORPORATION, OXIITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/POR ANY KRRORI THAT NAY APPEAR IN THIS OOCUMENT, 

/THE SOFTWARE OEICRXBED IN THIS OOCUMUNT IS FURNISHED TO THE PURCHASER 
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM ANO CAN BE COPIED 
/(WITH INCLUSION OF DIGITAL*! COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PMOVXDEO IN WRITING BY OIGITAL, 

/DIGITAL EQUIPMENT CORPORATION ASSUME:) NO RESPONSIBILITY FOR THE UIE 
/OR RELIABILITY OP ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
/DIGITAL, 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


/NCR 

FOR RTSS 

V2 



111 



/ M, HURLEY / R, 

IIS 





134 



/THE MONITOR CONI 

135 



/RTI-S 

SYSTEM TO 

US 



/THROUGH THE CONI 

117 





US 


6115 

TASK* 

NCR 

Ul 


66H 

CUR« 

11 

248 


•868 

INIWT* 

• 

141 





142 




IFNDEF 1 

243 





244 



/PARAMETERS FOR 1 

245 





24S 


8824 

TASKS* 

NTASKS+l , 

247 


6818 

CUR2» 

CUR , 

244 


6668 

INIWTI* 

0 

244 





251 


6652 

INLENG- 

52 

251 


6834 

NMFIT* 

34 

252 





253 


8881 


FIELD CUI 

254 





255 


8186 


*111 

256 

16118 

6112 

ERRDLM, 

OLMER 

257 

11181 

6121 

ERRNUM, 

NUMER 

256 

16162 

6164 

ERRNAM, 

NAMER 

254 

16113 

5488 

GET, 

GETA 

266 

16164 

6888 

NUMB, 

• 

261 

16165 

6866 

EN08TF, 

ENDS 

262 

16166 

5468 

BCKUP, 

BACKUP 

263 

16167 

5436 

leglim, 

LEGAL 

264 

line 

5465 

EOL, 

EOLA 

265 

16111 

8888 

ACL, 

8 / 

266 

16112 

8000 

ACM, 

6 

267 

16113 

0080 

o, 

0 < 

266 

16114 

0000 

V, 

0 

264 

18115 

0000 

P, 

0 

278 


4516 

PUTw* 

JMS I , 

271 

11116 

5432 


PUTWX 


PALI*VIO 11/11/75 PAIE 7 


/DEFAULT INCLUDES 8Y8TAT 


/SAME FIELD AS HCR 
/COMES UP RUNNING 

/LENGTH OF INPUT BUFFER 

/NUMBER OF NAMES WHICH CAN SHARE A PAIE WITH CODE 


/GETN RESULT 


/I WORO AC 
/ALL USAGE TEMPS 


f 





4 


/MCR FOR RT«a V2 


PAL8-V9D M/ll/79 FACE a 


272 

275 

274 

275 

276 

277 

278 


520® 

5400 


*HCRIYS”7600*5400 
XFNDEF CLOCK «*.+600> 
XFNZRO NTA8K8»NMFIT44000 


/J FAOES FOR CLOCK CODE 
««.*200> /SAVE NAME PC 


/OET NEXT CHARACTIR ROUTINE 
/ADVANCE POINTER FOR NEXT CET 


279 

15400 

9080 

8ETA» 

• 



280 

19401 

1604 


TAD X 

XP 


281 

15402 

2204 


X8Z 

XP 


282 

11403 

5600 


JMP X 

CITA 


283 

19404 

0000 

IP» 

0 



284 







285 



/determines if 

NEXT CHARACTER XS ALPHABETIC OR NUNER 

266 



/EXIT XF NOT f 

EXXTM XF 

ALPHA OR NUN 

267 







166 

15405 

0000 

ALPNUM' 

0 



269 

15406 

4503 


JM8 X 

0ET 


290 

19407 

1113 


OCA 

Q 


291 

15410 

1113 


TAD 

0 


292 

15411 

1377 


TAO 

(•933 


293 

15412 

7100 


CLL 



294 

15413 

1376 


TAO 

(It 


295 

15414 

7630 


8ZL CLA 

/TEST FOR ALPH» 

296 

15415 

2205 


X8Z 

ALPNUM 

/BUMP RETURN XI' ALPHA 

297 

15416 

1113 


TAD 

Q 

/NOW TEST FOR HUNERXC 

296 

15417 

4222 


JMS 

I8XTNM 


299 

15420 

2205 


X6Z 

ALPNUM 


300 

15421 

5605 


JMP X 

ALPNUM 


301 







382 



/SEE XF 

CHARACTER XN AC 

XS NUMERAL 

383 



/EXIT XF lit EXXT+l IF NOT 

304 







305 

15422 

0000 

X8XTNN' 

0 



306 

15423 

1375 


TAD 

(•"9«4 


307 

15424 

7100 


CLL 



306 

15425 

1374 


TAO 

(12 

/CHECK FOR RANHE 260*271 

309 

15426 

7420 


8NL 



310 

19427 

2222 


X8Z 

X8XTNM 

/BUMP RETURN ADDRESS XF NOT 

311 

15430 

1173 


TAD 

(260 

/RESTORE CHAR 

312 

15431 

5622 


JMP X 

XSXTNM 


313 







314 

15432 

0000 

PUTHX, 

0 


/ROUTINE TO STCRE A WORD XN 

315 

15433 

3704 


OCA X 

N 


316 

15434 

2304 


xsz 

M 


317 

15435 

5632 


JMP X 

PUTHX 




6} 


/NCR FOR RT38 V2 


PAL8-V90 19/11/75 PACE 9 


518 

319 

520 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 
33a 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 


/CHECK NEXT CHAR FOR TYPE OF OELXMXTER 
/EXXTP NOT CR'ALTMOOE,SPACE, OR COMMA 
/EXXTMiCR OR ALTMODE 
/EXXT*2§8PACE OR COMMA 


15436 

0000 

LECAL# 0 






15437 

4503 

JMS 

I 

CET 




15440 

3113 

OCA 


Q 




15441 

1113 

TAD 


Q 




15442 

7141 

CIA 

CLL 





15443 

7510 

SPA 



/CR OR ALTMODEf 



15444 

5250 

JMP 


NOCRAL 

/NO 



15445 

7264 

8TA 

CML 

RAL 

/GENERATE «2 XF CR f mi 

XF 

ALTMODE 

15446 

3272 

OCA 


cralt 




15447 

5256 

JMP 


XTSEOL 




15450 

1372 

NOCRAL# TAO 


(240 

/BLANK? 



15451 

7440 

SZA 






15452 

1371 

TAD 


("'•240 

/COMMA? 



15453 

7640 

SZA 

CLA 





15454 

5257 

JMP 


NOGOOO 

/NEITHER 



15455 

2236 

XSZ 


legal 

/SPACE OR COMMA 



15456 

2236 

ITSEOLi ISZ 


legal 

/cr,alt 



15457 

5636 

NOGOOD' JMP 

I 

legal 




15460 

0000 

BACKUP' 0 



/BACK UP XNBUF POINTER 

BY 

1 CHAR 

15461 

7240 

CLA 

CMA 





15462 

1204 

TAO 


XP 




15463 

3204 

DCA 


XP 




15464 

5660 

JMP 

X 

BACKUP 




15465 

0000 

EOLA, 0 



/SEARCH FOR C,R„ OR ALTMODE 

15466 

4507 

JMS 

I 

LE6LXM 




15467 

5500 

JMP 

I 

ERROLM 

/CRAP AT END OF LINE 



15470 

5665 

JMP 

I 

EOLA 




15471 

5266 

JMP 


EOLA*1 




15472 

0000 

cralt, 0 







62 




PAL8-V9D 09/11/75 


PAGE 10 


/HCR POR RTSS VS 


355 

15673 

0000 

TTOUT r 

0 


356 

15474 

4516 


PUTW 


357 

15475 

4020 


CAL 


358 

15476 

0011 


SENON 


359 

15477 

0003 


TTY 


360 

15500 

5505 


EXMSG 


361 

15501 

1370 


TAO 

(E1MSG 

362 

15502 

3304 


OCA 

W 

363 

15503 

5673 


JMP I 

TTOUT 

364 






365 

15504 

5512 

w, 

E1M8G 


366 






367 

15505 

0000 

EXMSGf 

ZBLOCK 

3 

36S 

15510 

0000 


0 


369 

15511 

0000 


0 


370 



E1M8G, 



371 

15512 

0000 

INBUF, 

ZBLOCK 

INLENG 

372 

15570 

5512 




373 

15571 

0014 




374 

15572 

0240 




375 

15573 

0260 




376 

15574 

0012 




377 

15575 

7506 




378 

15576 

•032 




379 

15577 

7445 




380 


5600 


PABE 



/TERMINATE LIME 

t \" .'ll' 1 : : . ’ 

/SEND MESSAGE TO TTY AND WAIT 
/INITIALIZE POINTER POR NEXT LINE 


/OUTPUT BUFFER BHARES SPACE WITH INPUT BUFFER 

/INPUT BUFFER 


63 


/MCR 

FOR RTSS 

V2 




PAL8-V9D 09/11/15 PAGE 11 

381 



/ROUTINE 

: TO 

PARSE OFF A 

TASK NAME OR NUMBER 

382 








383 

15600 

5601 

NAMEA, 

XNAME 



384 

15601 

0000 

XNAME t 

0 


/USED FOR TEMP STORAGE OF ACCUMULATED NAME 

385 

15602 

0000 

XNAMEl» 

0 




386 








387 

15603 

0000 

GETTSK, 

0 



/THIS SUBR RETURNS TASK NUMBER IN "TSKWD" 

388 

15604 

4232 


JMS 


NAMGET 


389 

15605 

5223 


JMP 


NUMTSK 


390 

15606 

4300 


JMS 


NAMCOM 

/OK SO FAR, 

391 







/NOW CHECK FOR NAME DUPLICATION 

392 

15607 

5502 


JMP 

I 

ERRNAM 


393 

15610 

1114 


TAO 


V 


394 

15611 

1377 


TAO 


(NTASKSM /GET NUMBER ASSOC. WITH THIS NAME 

395 

15612 

3277 

GOTASK, 

OCA 


TSKWD 

/AND THAT*3 THE TASK NUMBER 

396 

15613 

1277 


TAD 


T3KW0 


397 

15614 

7041 


CIA 




398 

15615 

7180 


CLL 




399 

15616 

1376 


TAO 


(NTASKS 

/MUST BE BETWEEN 1 ♦ NTASKS 

400 

15617 

7620 


SNL 

CLA 



401 

15620 

5501 


JMP 

I 

ERRNUM 


402 

15621 

1277 


TAD 


TSKWO 


403 

15622 

5603 


JMP 

I 

GETTSK 

/RETURN WITH TASK NUMBER IN AC 

404 

15623 

4506 

NUMTSK, 

JMS 

I 

BCKUP 

/IT'S A NUMBER • MUST BACK UP PTR 

405 

15624 

4775 


JMS 

I 

(OCTNUM 

/SO GO ACCUMULATE IT 

406 

15625 

4506 


JMS 

I 

BCKUP 


407 

15626 

4503 


JMS 

I 

GET 

/GET DELIMITING CHAR 

408 

15627 

7200 


CLA 




409 

15630 

1104 


TAD 


NUMB 


410 

15631 

5212 


JMP 


GOTASK 








f>4 



4 


/MCR 

FOR RTSS 

V2 



P* 

411 

15632 

0000 

NAMGET # 

0 


412 

15633 

1200 


TAD 

NAMEA 

413 

15634 

3276 


OCA 

G7 

414 

15635 

7344 


AC7776 


415 

15636 

3275 


OCA 

63 

416 

13637 

1374 


TAD 

(4040 

417 

15640 

3202 


OCA 

XNAME1 

41S 

15641 

4773 


JMS I 

(ALPNUM 

419 

15642 

3772 


JMP X 

(CHRER 

420 

15643 

1371 


TAO 

(•300 

421 

13644 

7710 


SPA CLA 


422 

15645 

5632 


JMP I 

NAMGET 

423 

15646 

2232 


ISZ 

NAMGET 

424 

15647 

1113 


TAO 

Q 

425 

15650 

0370 

NXT | 

AND 

(77 

426 

15651 

7126 


•TL RTL 


427 

15652 

7006 


RTL 


426 

15653 

7006 


RTL 


429 

15654 

3676 


OCA 1 

67 

430 

15655 

4773 


JMS X 

(ALPNUM 

431 

15656 

3270 


JMP 

ENOX 

432 

15637 

0370 


AND 

(77 

433 

13660 

1367 


TAO 

(•40 

434 

13661 

1676 


TAD I 

G7 

435 

15662 

3676 


OCA I 

G7 

436 

15663 

2276 


ISZ 

G7 

437 

13664 

2275 


ISZ 

G3 

436 

15665 

4773 


JMS I 

(ALPNUM 

439 

15666 

3270 


JMP 

ENDX 

440 

15667 

5250 


JMP 

NXT 

441 

15670 

4506 

ENDX # 

JMS I 

6CKUP 

442 

13671 

4307 

ENO, 

JMS X 

LEGLXH 

443 

15672 

5271 


JMP 

ENO 

444 

15673 

7000 


NOP 


445 

15674 

5632 


JMP I 

NAMGET 

446 






447 

15675 

0000 

03# 

0 


446 

15676 

0000 

G7, 

0 


449 

13677 

0000 

TSKMD# 

0 



PAL8.V9D 89/11/75 PACE 12 


/NAME OR NUMBER? 
/BY NUMBER 


/40 XN LOW 9 BITS 


/2ND CHAR IS NO' ALPHANUMERIC 
/REMOVE LOW 4B 
/SAVE 1ST 2 CHARS 
/4 CHARS YET? 

/3RD CHAR NON*ALPHANUMERIC 
/GO DO 3RD*4TH CHARS 


/MCR 

FOR RTSS 

V2 




PAL8«V90 09/11/75 PAGE 13 

450 



/COMPARE 

: NAME XN XNAME 

WITH NMTBL# LOOKING FOR MATCHES. 

451 








452 

15700 

0000 

NAMCOM| 

0 




453 

15701 

1366 


TAO 


(NMTBL*! 

454 

15702 

3115 


OCA 


P 


455 

15703 

1365 


TAD 


(•NTASKSvl 

456 

15704 

3114 


DCA 


V 


457 

15705 

2115 

CHKMOR # 

XSZ 


p 

/UPDATE PAST UNNEED XNFO 

458 

13706 

2114 


XSZ 


V 

/DONE? 

459 

15707 

7410 


SKP 




460 

15710 

5700 


JMP 

I 

NAMCOM 

/YES 

461 

15711 

1313 


TAO 

I 

P 

/GET 2 CHARACTERS FROM NMTBL 

462 

15712 

2113 


XSZ 


P 


463 

15713 

7041 


CIA 




464 

15714 

1201 


TAO 


XNAME 

/COMPARE TO NAME UNDER INVESTIGATION 

465 

15713 

7640 


8ZA 

CLA 



466 

15716 

5305 


JMP 


CHKMOR 

/N.G. CONTINUE THRU NMTBL 

467 

13717 

1202 


TAD 


XNAME! 

/TRY 2N0 2 CHARS FOR MATCH 

466 

15720 

7041 


CIA 




469 

15721 

1515 


TAO 

I 

P 


470 

15722 

7640 


SZA 

CLA 



471 

13723 

5305 


JMP 


CHKMOR 

/NOT CLOSE ENOUGH 

472 

15724 

2300 


XSZ 


NAMCOM 

/FOUNO IT 

473 

15723 

5700 


JMP 

X 

NAMCOM 



86 



* 


/MCR FOR RTSS V2 PAL6«V9D 09/11/73 PAGE 14 

474 /RUN THE REQUESTED TASK, TO SCHKO FIRST 

473 


474 



IFNDEF 

CLOCK 

4 

477 



SCHED, JMS 

GETT8K 


478 



» 



479 

19704 

1277 

REQU8T, IFDEF 

CLOCK 

«TAD T8KWD* 

4 St 

19727 

4020 

CAL 



••t 

19730 

0003 

RUN 



441 

13731 

5333 

JMP 

BKELEN 


443 






444 



/8T0P THE REQUESTED TASK 

449 






444 

13732 

4203 

STOP, JMS 

GETTSK 


447 

13731 

4020 

cal 



444 

13734 

0009 

8USPND 



489 

19733 

4904 

bkelen, JMS 1 

BCKUP 


494 

19734 

4910 

JMS 2 

COL 


491 

13737 

5505 

JMP I 

EN08TF 


492 






493 



/enable a tasks 

EXECUTION 

494 






493 

19740 

4203 

ENABLE, JMS 

GETTSK 


494 

19741 

4020 

CAL 



497 

13742 

0012 

UNBARB 


/UNBLOCK THE TAJIK ON 

498 

13743 

0040 

ENAINT 


/ENABLE WAIT 

•99 

13744 

5333 

JMP 

BKELEN 

/CLEAN UP 

300 






901 



/disable a tasks execution 

302 






503 

13743 

4203 

DI8ABL, JMS 

GETTSK 


504 

13744 

4020 

CAL 



505 

15747 

0010 

BLKARG 


/BLOCK THE TASK ON 

304 

15750 

0040 

ENABMT 


/enable wait 

307 

13751 

5335 

JMP 

BKELEN 

/clean up 

904 

13745 

7754 




509 

15746 

6177 




510 

15747 

7740 




511 

15770 

0077 




512 

15771 

7500 




513 

15772 

6076 




314 

13773 

5405 




515 

15774 

4040 




516 

15775 

6633 




517 

15774 

0023 




514 

15777 

0024 




519 


6000 

PACE 




67 


/MCR 

FOR RTSS 

V2 

520 



521 



522 

16000 

2777 

523 

16001 

5211 

524 

16002 

6002 

525 

16003 

6203 

526 

16004 

1376 

527 

16005 

3775 

528 

16006 

6211 

529 

16007 

4425 

530 

16010 

2000 

531 

16011 

4020 

532 

16012 

0011 

533 

16013 

0003 

534 

16014 

6043 

535 

16015 

1247 

536 

16016 

3774 

537 

16017 

3777 

538 

16020 

4507 

539 

16021 

5224 

540 

16022 

5505 

541 

16023 

5220 

542 

16024 

4506 

543 

16025 

4773 

544 

16026 

5502 

545 

16027 

1372 

546 

16030 

3115 

547 

16031 

2115 

548 

16032 

1515 

549 

16033 

2115 

550 

16034 

7440 

551 

16035 

1771 

552 

16036 

7640 

553 

16037 

5231 

554 

16040 

1315 

555 

16041 

3115 

556 

16042 

5515 

557 



558 

16043 

0000 

559 

14046 

2052 

560 

16047 

5512 

541 

16050 

7600 

562 



563 

16051 

1250 

564 

16052 

2262 

565 

16053 

2262 

566 

16034 

2262 

567 

16055 

2262 

568 

16056 

2262 

569 

16037 

5252 

570 

16060 

7010 

571 

16061 

5252 

572 

16062 

0000 


PALS-V9D 09/U/7S PAGE 13 
/COMMAND CLEANUP AND NEW COMMAND FETCH 


ENOS, 

ISZ I 

CCRALT 

/ALT.MODE EXITt 



JMP 

START 

/NO.CR EXIT 



IOF 

CDF CIF 

0 

/"WAITM" REQUIRE S IOF ON ENTRY 



TAD 

(4000+TASK 



DCA I 
COF CUR 

(MCREF 

/SUSPEND MCR ON 'C EVENT FLAG 



WAITM 

EFWT 


/WITHOUT LETTING INTERRUPTS GO 

BACK 

start, 

CAL 

SENDW 

TTY 

MCRME8 

TAD 

PINBUF 




OCA I 

(IP 




DCA I 

(CRALT 




JMS I 

leglim 

/LOOK AT FIRST CHAR 



JMP 

.♦3 

/SOMETHING USEFUL 



JMP I 

ENDSTF 

/CR OR ALT • NULL LINE 



JMP 

.-*3 

/SPACE OR COMMA «• KEEP LOOKING 

FOR l 


JMS I 

BCKUP 

/FOUND MEAT • BACK UP OVER IT 



JMS I 

(NAMGET 

/GET COMMAND NAMI! 



JMP I 

ERRNAM 




TAD 

(CMOLST. 

»1 



DCA 

P 



CMDLP, 

ISZ 

P 




TAD I 

P 

/GET 1ST 2 CHARS OF A COMMAND 



ISZ 

P 




SZA 

TAD I 

(XNAME 

/0 TERMINATES COMMANO LIST 



SZA 

CLA 

/A MATCH? 



JMP 

CMDLP 

/NO-TRY AGAIN 



TAD I 

P 

/YES • GET COMMAND DISPATCH ADDRESS 


OCA 

P 




JMP I 

P 

/WE # RE ON OUR WA) 


MCRME8, 

ZBLOCK 

3 




2000MNLENG 



PINBUP, 

IN0UF 




L7600, 

TEXT 

/>/ 



8TART2, 

TAD 

L7600 

/RSX-iiO style null task 


BKGLP, 

ISZ 

BKGCT 




ISZ 

BKGCT 




ISZ 

BKGCT 




ISZ 

BKGCT 




ISZ 

BKGCT 




JMP 

BKGLP 




RAR 





JMP 

BKGLP 



BKGCT, 

0 





68 



PAL8-V9D >9/11/79 PACE 14 


■* 


/NCR POP RT84 V2 


971 

974 

979 

974 

977 

971 

979 

910 

541 

981 

983 

984 

985 
584 

587 

588 

589 
99> 
991 

592 

593 
994 
595 

594 

597 

598 

599 
6 M 
4>1 

488 

403 
484 

489 

404 
407 


14843 

0008 

ERM06, 

ZBIOCK 3 

14044 

1000 


1080 

14847 

8000 


8 

14078 

0008 

ERRA, 

0 

14071 

4820 


CAL 

14072 

0011 


0ENDN 

1407 J 

8009 


TTY 

14874 

4003 


ERM8G 

14879 

9811 


JMP START 


/STANDARD MESSAGE HEADER 

/8IX0IT ME8SA0C, UNO WITH CRIP# INDIRECT 

/NO INPUT 

/JMS PUTS POINTER TO ERROR MESSAGE HERE 
/AC RANOOM 0UT IRRELEVANT 


14074 

14077 

1410S 

14181 

14108 

14103 

14104 

14105 
14104 
14107 

14110 

14111 

14118 

14113 

14114 

14119 
14114 
14117 
14180 

14121 

14122 

14183 

14184 
14125 
14124 


4270 CHRBRf JMS 
8281 TEXT 

S440 

8310 

0182 

0000 

4270 NAMES* JMS 
0801 TEXT 

0440 
1401 
1985 
0800 

4270 OLHER, JMS 

0201 TEXT 

0440 

0405 

1411 

1580 

4270 NUMERf JM0 
8801 TEXT 

0440 

1485 

1508 

0522 

0000 


ERRA 

/BAD CHAR/ 


ERRA 

/BAD NAME/ 


ERRA 

/BAD DELIH/ 


ERRA 

/BAD NUMBER/ 


69 


/MCR 

FOR RTSS 

V2 



PAL8-V90 89/11 

008 



/COMMAND 

1 LIST • 

FORMAT 

OF LIST 101 

009 



/ 

NAME 



418 



/ 

OVERLAY 

NO, 


011 



/ 

ST. ADOR. IN OVERLAY 

418 

413 

16127 

5454 

cmdlst, 

>23241 

STOP 

/STOP 

014 

16130 

9732 





415 

16131 

7262 


•05161 

ENABLE 

/enable 

010 

16132 

5740 





017 

16133 

7367 


•84111 

OISA0L 

/DISABLE 

018 

14134 

9745 





419 

14135 

6177 


•16011 

NAME 

/NAME 

620 

16136 

6846 





621 




IPDEF 

CLOCK 

« 

622 

16137 

7377 


•04011 

OATEX 

/DATE 

623 

16140 

7280 





624 

14141 

5367 


•84111 

TIME 

/TIME 

629 

16142 

7000 





626 

16143 

7477 


•03811 

CANCEL 

/CANCEL 

627 

16144 

7490 





628 




► 



629 

16145 

5973 


•82051 

SCHED 

/REQUEST 

630 

16146 

7400 





631 

16147 

6868 


•17201 

EXAM 

/OPEN 

632 

16158 

6726 





633 

16151 

7373 


•04051 

DEPSIT 

/DEPOSIT 

634 

16152 

6478 





635 

16153 

5761 


•28171 

POSTEF 

/POST 

636 

16154 

4714 





637 




XFNZRO 

MCRSY0 

« 

638 

16155 

9447 


•23311 

SY8TAT 

/SYSTAT 

639 

16156 

6480 





640 




> 



641 

16157 

7250 


-05301 

EXIT 

/EXIT 

642 

16160 

6273 





643 

16161 

0080 


01 

NAMES 

/END OF LIST 

644 

16162 

6104 





649 

14171 

5601 





646 

16172 

6124 





647 

14173 

5632 





648 

14174 

5484 





649 

16175 

0041 





650 

14176 

4809 





651 

14177 

5472 





652 


6280 


PAGE 




PAGE 17 


70 



/MGR FOR RTSS V2 


653 

43A 

655 

656 

657 
656 

659 

660 
661 
662 
645 

664 

665 
664 
647 
660 

669 

670 

671 

672 

673 

674 

675 
474 
477 
670 
679 
600 
601 
602 

603 

604 

605 
684 
647 


16200 0000 
4176 

6210 

16210 1503 

16211 2240 

6204 

16204 2424 

16205 3140 


4200 

16200 0314 

16201 0313 


6216 

16216 2213 

16217 7040 


6214 

16214 0424 

16215 0140 


6240 

16240 2327 

16241 0120 


FAL0-V9D 09/11/75 FACE 10 

/FORMAT OF NMTBL 18 2 WORO0 OF 4 6-BIT CURS 
/ORDERED BY NUMBER OF TASK AFFILIATED WITH THAT NAME 
/NAMEi MUST BE FADOED WITH BLANKS) 

NMTBL# ZBLOCK NTASKS"! 

NAMES- NMTBL-2 


*RCR*29NAMES 
15031 2240 


/MCR 


IFDEF TTY - 

*TTY*2*NAME3 

24241 3140 /TTY 


IFDEF CLOCK 
*CL0CK"2*NAMES 
DEVICE CLCK 


IFDEF RK8 
*RK0*2*NAMES 
22131 7040 


/RK0 


IFDEF DTA 
*DTA"2*NAME8 
04241 0140 


/OTA 


IFOEF SHAFFER « 
«SWAFFER"2*NAME3 
DEVICE SMAF 


/MCR 

FOR RTSS 

V2 


FAL8-V9D 

688 



/NAME TABLE CONTINUED 


689 





690 



IFDEF RF08 

< 

691 


6220 

*RF08”2*NAME3 


692 

16220 

2206 

DEVICE RF08 


693 

16221 

6070 



694 



» 


695 



IFDEF CSA 

« 

696 


6224 

*CSA*2*NAMES 


497 

16224 

0323 

032310140 

/CSA 

698 

16225 

0140 



699 



» 


700 



IFDEF CSAF 

« 

701 


6226 

»CSAF*2#NAM63 


702 

16226 

0323 

DEVICE CSAF 


703 

16227 

0106 



704 



> 


705 



IFDEF UDC 


706 



*UDC*2+NAMES 


707 



250410340 

/UDC 

70S 



» 


709 



IFDEF 0S8F 


710 


6236 

-0S8F*2-NAMES 


711 

16236 

1723 

DEVICE 0S8F 


712 

16237 

7006 



713 



> 


714 



IFDEF 088 

< 

715 


6244 

-088^2-NAMES 


716 

14244 

1723 

17231 7040 

/0S8 

717 

16245 

7040 



718 



> 


719 



IFDEF LPT 

< 

720 


6206 

•LPT-24NAMES 


721 

16204 

1420 

142012440 

/LPT 

722 

16207 

2440 



723 



> 


724 



IFDEF PWRF 

< 

725 


6202 

*FWRF"2*NAMES 


726 

16202 

2027 

DEVICE PNRF 


727 

14203 

2206 



728 



> 


729 



IFDEF LTA 

< 

730 


6212 

*LTA*24NAMES 


731 

14212 

1424 

142410140 


732 

16213 

0140 



733 



» 


734 





735 



IFDEF RX8A 

< 

736 


4234 

*RX8A*2+NAMES 


737 

16234 

2230 

OEVICE RX6A 


738 

16235 

7001 



739 



> 


740 





741 



IFDEF RX8B 

< 

742 



*RX8B a> 2«NAMES 



/LTA 


72 



PALS-V90 09/11/75 PAGE 19-1 


% « 


/MCR FOR RT88 V2 


743 

744 

745 

746 

747 

748 

749 

750 

751 

752 
751 

754 

755 

756 

757 


DEVICE RXBB 


XPOEP RX8C « 

•RX8C"«4NAHE8 
DEVICE RX9C 
» 

XPDEP RXtD < 

*RX8D v MN«HEI 
DEVICE RX80 
» 


6246 


*NTASK8*lTNMTBL /origin to end of table 

XFZERO NTA8KS.NMFXT84G00 «PA6E» 


/CAN'T FXT IN WITH CODE 



73 


/MCR FOR RTS8 V2 


758 



/ASSOCIATE A 

759 

760 

16246 

4777 

NAME, 

JMS 

761 

16247 

7104 


RAL i 

762 

16250 

1376 


TAD 

763 

16251 

3112 


DCA 

764 

16252 

4506 


JM8 

765 

16253 

4507 


JMS 

766 

16254 

5500 


JMP 

767 

16255 

5500 


JMP 

768 

16256 

4775 


JMS 

769 

16257 

5502 


JMP 

770 

16260 

4774 


JMS 

771 

16261 

7410 


SKP 

772 

16262 

5502 


JMP 

773 

16263 

4506 


JMS 

774 

16264 

4510 


JM8 

775 

16265 

1773 


TAD 

776 

16266 

3512 


OCA 

777 

16267 

2112 


ISZ 

778 

16270 

1772 


TAD 

779 

16271 

3512 


DCA 

780 

16272 

5505 


JMP 

781 

782 

16273 

1772 

EXIT, 

TAD 

783 

16274 

1371 


TAO 

784 

16275 

7640 


SZA 

785 

16276 

5770 


JMP 

786 

16277 

6201 


CDF 

787 

16300 

3767 


DCA 

788 

16301 

2114 


ISZ 

789 

16302 

5301 


JMP 

790 

16303 

2311 


ISZ 

791 

16304 

5301 


JMP 

792 

16305 

6002 


IOF 

793 

16306 

6007 


IFNI 

794 

16307 

6203 


CDF 

795 

16310 

5766 


JMP 

796 

797 

16311 

7720 

EXDLAY, 

i -60 


PALS«V9D 09/11/7! PAGE 20 
NAME WITH A TASK NUMBER 

t (GETTSK /GET TASK NUMBEI’ TO GIVE THIS NAME TO 
:tL /INDEX INTO NMTI'L 

(NAMES 
ACH 

[ BCKUP 
I leglxh 

[ ERRDLM 

[ ERRDLM /NO CR BEFORE NUMBER 
1 (NAMGET 
ERRNAM 

(NAMCOM /CHECK FOR DUPLICATION OF NAMES 


/BAD NAME • ALREADY EXISTS 


ERRNAM 

BCKUP 

EOL 

(XNAME 

ACH 

ACH 

(XNAME1 

ACH 

ENOSTF 

(XNAME1 

(•1124 


(EXAM 
0 

(TSWFLG /INHIBIT TASK Sl» ITCHING 
V 

.•1 /ALLOW (MOST) I/O TO COMPLETE 

EXDLAY 

,•3 


/I WORD 

/THEN THE OTHER 

/VERIFY THAT "E>IT" WAS TYPED 
/OTHERWISE ASSUME USER MEANT "EXAMINE" 


0 

(7600 




/MCR FOR RTM VI FALMVtD 09/M'75 PAGE II 


79S 

1 S311 

•000 

PR1IBT, 

• 


/PRXNT 2 3«BX ,f NUM0IR0 

799 

1 S313 

311) 


OCA 

Q 


•00 

1S314 

1113 


TAO 

Q 


•01 

16315 

71 it 


CLL RTR 



•01 

16316 

7012 


RTR 



•03 

16317 

7012 


RTR 



•04 

16320 

4314 


JH0 

PRNTNH 

/PA«0 1 DIGIT NO, 

•05 

16311 

1113 


TAO 

Q 


SOS 

16312 

4310 


JM0 

PRNTNH 

/PAti 4A0T 2 DIGITS 

SOT 

16313 

5711 


JMP X 

PR HIT 


806 







• 09 

16324 

0000 

PRNTNH, 

• 



• 10 

16325 

0365 


ANO 

(77 


811 

16326 

3il« 


OCA 

V 


611 

16327 

1114 


TAO 

V 


• 13 

16330 

7106 


CLL RTL 



• 14 

16331 

7004 


RAL 



615 

16332 

0364 


ANO 

(707 

/GIT LIFT DIGS T 

• IS 

16333 

1114 


TAO 

V 


• 17 

16334 

0364 


ANO 

(7i7 

/RIGHT DIGIT 

618 

16335 

1363 


TAD 

(0060 


819 

16336 

4516 


PUTN 



• 20 

16337 

5724 


JMP X 

PRNTNH 


• 21 

16363 

6060 





• 22 

16364 

0707 





623 

16365 

0077 





824 

16366 

7600 





625 

16367 

0033 





626 

16370 

6726 





827 

16371 

6654 





828 

16372 

5602 





629 

16373 

5601 





830 

16374 

5700 





831 

16375 

5632 





832 

16376 

6176 





833 

16377 

5603 





834 


6400 


PAGE 




/MCR FOR RTSS V? PAL8«V9D 09/11/75 PAGE 22 

835 IFNZRO HCRSYS « 


836 



/PRINT 

A STATUS 

table 


637 



/FORMAT 

ISI 

NO, 

OF TASK 


838 



/ 

AFFILIATED NAME 

IF ANY 

639 



/ 

STATE OF 

FLAGS! 


840 



/ 

Ei 


EVENT 

Ha MESSAGE 

641 



/ 

5* 


SWAP 

Ra • RUN 

842 



/ 

U« 


USER 

Oa DISABLEO 

843 



/ 

Oa 


EVENT OR 

MESSAGE 

644 







1 

645 

16400 

3114 

SYSTAT, 

DC A 


V 


646 

16401 

4506 


JMS 

I 

BCKUP 


847 

16402 

4507 


JM8 

I 

LEGLIM 


846 

16403 

5500 


JMP 

I 

ERRDLM 

» 

849 

16404 

5211 


JMP 


FULSYS 

/NO ARGS • DO r OA ALL TASKS, NO STATE 

850 

16405 

4777 


JMS 

I 

(GETTSK 

/DELIMITER • Gi5T TASK ID 

851 

16406 

3114 


OCA 


V 

| 

852 

16407 

3115 


DCA 


P 

/SET FOR ONE T VSK, WITH STATE 

653 

16410 

5214 


JMP 


ONETSK 

> 

854 

16411 

1376 

FULSYS» 

TAO 


(•NT ASKS 

655 

16412 

3115 


OCA 


P 

/.MAX, NO, ENTITIES 

856 

16413 

2114 

UPCHCK, 

ISZ 


V 


857 

16414 

1375 

0NET8K, 

TAD 


(TFT ABL 

1 

658 

16415 

1114 


TAO 


V 


859 

16416 

3334 


OCA 


ST2 

/INDEX INTO FLA|G table 

660 

16417 

6201 


COF 

0 


/GET JFTABL WORC 

861 

16420 

1734 


TAD 

I 

ST2 

862 

16421 

6211 


COF 

CUR 



863 

16422 

3334 


DCA 


ST2 

| 

664 

16423 

1334 


TAD 


8T2 

/LO BITa 1 MEAN3j NOT ACTIVE 

665 

16424 

7110 


RAR 

CLL 



866 

16425 

7630 


SZL 

CLA 


. 1 

j_ _ 

867 

16426 

5321 


JMP 


NXTTSK 

/MOVE ON TO NEXrr TASK 

666 

16427 

1114 


TAO 


V 

/PRINT TASK NO,* 

669 

16430 

4774 


JMS 

I 

(PRNTNM 


670 

16431 

4326 


JMS 


SYSOUT 

l 

871 

16432 

1114 


TAD 


V 

f 

672 

16433 

7104 


CLL 

RAL 


l 

/INDEX INTO NAME TABLE 

• 73 

16434 

1373 


TAO 


(NAMES 

674 

16435 

3333 


OCA 


ST1 

1 

875 

16436 

1733 


TAD 

I 

ST 1 


876 

16437 

4326 


JMS 


SYSOUT 

/ADD NAME TO WR?TE BUFFER 

877 

16440 

2333 


ISZ 


ST1 

i 

676 

16441 

1733 


TAD 

I 

ST 1 

j 

679 

16442 

4326 


JMS 


SYSOUT 



i 

! 


! 

I 

i 


7b 





V 
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680 



• 81 



• 62 

16443 

1372 

813 

16444 

3333 

684 

16445 

2333 

885 

16446 

1733 

888 

16447 

2333 

86T 

16450 

7450 

• SB 

16451 

5260 

889 

16452 

0334 

890 

16453 

7650 

891 

16454 

5245 

892 

16455 

1733 

693 

16496 

4516 

894 

14457 

5245 

899 

16460 

1114 

894 

16461 

7104 

897 

16462 

1371 

698 

16463 

3113 

899 

16464 

6201 

900 

16465 

1513 

901 

16466 

6211 

902 

16467 

7650 

903 

16470 

5273 

904 

16471 

1370 

909 

16472 

4516 

906 

14473 

1113 

907 

16474 

7640 

906 

16475 

5320 

909 

16476 

1347 

910 

16477 

3334 

911 

16500 

1114 

912 

16501 

7106 

913 

16502 

1366 

914 

16503 

3333 

915 

16504 

4326 

916 

16505 

1333 

917 

16506 

4763 

918 

14507 

1344 

919 

16510 

4326 

910 

16511 

6201 

921 

16512 

1733 

922 

16513 

6211 

923 

16514 

4743 

924 

16515 

2333 

929 

16516 

2334 

926 

16517 

5310 


/INSERT TASK WAIT COOES INTO LINE 


flglp, 


NOMOFG, 


PRDTLP, 


TAD 

CFLGTBL-: 

DCA 

ST 1 

ISZ 

ST 1 

TAO I 

ST 1 

ISZ 

8T1 

SNA 


JMP 

NOMOFG 

AND 

ST2 

SNA CLA 


JMP 

FLGLP 

TAD I 

STl 

PUTW 


JMP 

FLGLP 

TAD 

V 

CLL RAL 


TAD 

(MSGTBL 

DCA 

Q 

CDF 

0 

TAD I 

Q 

CDF 

CUR 

SNA CLA 


JMP 

.♦3 

TAO 

(4052 

PUTW 


TAO 

P 

SZA CLA 


JMP 

NODTL 

TAD 

(-4 

DCA 

ST2 

TAD 

V 

CLL RTL 


TAD 

(TSTABL 

DCA 

STl 

JMS 

SY80UT 

TAD 

STl 

JMS I 

(PR12BT 

TAD 

(7240 

JMS 

SY80UT 

CDF 0 


TAD I 

STl 

CDF CUR 

JMS I 

(PR12BT 

ISZ 

STl 

ISZ 

8T2 

JMP 

PROTLP 


/DECODE WAIT CODE 
/GET NEXT TABLE ENTRY 


/ZERO ENDS TABLE 

/IF WE ARE WAITING ON THIS CODE, 

/WE WILL PUT THE CORRESPONDING CODE LETTER OUT 


/PRINT 4 WORDS FROM TASK STATE TABLE ENTRY 
/FOR THIS TASK 


/FOLLOWED BY COLON, SPACE 


/MCR 1 

FOR RT88 

V2 

927 

16520 

4763 

928 

16521 

2113 

929 

16522 

1113 

930 

16523 

7710 

931 

14524 

5213 

932 

16525 

5505 

933 



934 

16526 

0000 

935 

16527 

7450 

936 

16530 

1362 

937 

14531 

4516 

938 

16532 

5726 

939 



940 

16533 

0000 

941 

16534 

0000 

942 



943 

16535 

0020 

944 

16536 

4015 

945 

16537 

2000 

946 

16540 

4005 

947 

16541 

1000 

946 

16542 

4022 

949 

16543 

0400 

950 

16544 

4023 

951 

16545 

0100 

952 

16546 

4025 

953 

16547 

0040 

954 

16550 

4004 

955 

16551 

0200 

956 

16552 

4017 

957 

16553 

4000 

956 

16554 

4016 

959 

16555 

0000 

960 

16562 

4040 

961 

16563 

5473 

962 

16564 

7240 

963 

16565 

6312 

964 

16566 

1244 

965 

16567 

7774 

966 

16570 

4052 

967 

16571 

1176 

968 

16572 

6534 

969 

16573 

6176 

970 

16574 

6324 

971 

14575 

1367 

972 

16576 

7755 

973 

14577 

5603 

974 


6600 

975 
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JMS I 

(TTOUT 

/8EN0 MESSAGE TO TTY 

ISZ 

P 

/END OF TABLET 

TAD 

P 


SPA CLA 



JMP 

UPCHCK 

/NO 

JMP I 

EN08TF 

/YES • GO AWAY 

0 

SNA 


/PRINT CONTENTS 3F AC 

TAD 

(4040 

/OR BLANKS, 

PUTW 



JMP I 

8YSOUT 


0 



0 



M8GWT 1 

4015 

/M 

EFWTI 

4005 

/E 

RUNWT 1 

4022 

/R 

SWPWT 1 

4023 

/S 

USERWT f 

4025 

/U 

ENABWTf 

4004 

/D 

EORMWTI 

4017 

/O 

NONRWT f 

4016 

/N 


PAGE 


78 





PAL8-V9D 09/11/75 PA6E 25 


/MCR FOR RT88 V2 


976 /GCT 2 OCTAL NUMBERS 


978 

16600 

0000 

GET20C, 

0 



979 

16601 

4233 


JMS 


OCTNUM 

980 

16602 

5216 


JMP 


XSXTDN 

981 

16603 

1104 


TAD 


NUMB 

482 

16604 

7112 


CLL 

RTR 


483 

16605 

7012 


RTR 



984 

16606 

7012 


RTR 



985 

16607 

0377 


AND 


(70 

986 

16610 

3267 


DCA 


62A 

987 

16611 

4247 


JMS 


007 

988 

16612 

5216 


JMP 


X8ITDN 

989 

16613 

4503 


JMS 

I 

GET 

990 

16614 

7200 


CLA 



491 

16615 

1267 


TAD 


G2A 

992 

16616 

1376 

ISITDN, 

TAD 


(CDF 0 

993 

16617 

3362 


DCA 


GFLO 

994 

16620 

1104 


TAD 


NUMB 

995 

16621 

3267 


OCA 


G2A 

996 

16622 

4506 


JMS 

X 

BCKUP 

997 

16623 

4507 


JMS 

I 

leglin 

998 

16624 

5500 


JMP 

X 

ERROLM 

999 

16625 

5600 


JMP 

1 

GET20C 

1000 

16626 

4233 


JMS 


OCTNUM 

1001 

16627 

4506 


JMS 

I 

BCKUP 

1002 

16630 

1104 


TAD 


NUMB 

1003 

16631 

2200 


I8Z 


GET20C 

1004 

16632 

5600 


JMP 

I 

GET20C 


/GO GET A NUMBER 
/LESS THAN 4 DIMTB 
/5TH 18 FIELO 


/SAVE FIELO POXhTER IN CASE 5TH DIGIT SHOWS 
/TRY FOR 5 OIGZ18 
/BE CONTENT WIT* 8 

/WASTE A CHAR • THE DELXM 
/USE THE FIELO hE SAVED 
/AC HAY NOT BE I MEREl 
/SAVE CDF TO FIELD 

/THIS IS 4 DIGIT NUMBER 


/LEGAL EOL-ONLY l NUMBER 
/TRY FOR A 2ND 


/UPDATE RETURN ♦ PASS 2ND NUMBER IN AC 


79 
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1005 

1008 

1007 

1008 

1009 

1010 
1011 
1012 
1015 

1014 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 


16633 

0000 

OCTNUM, 

0 



16634 

7346 


AC7775 



16635 

3114 


OCA 

V 


16636 

3104 


OCA 

NUMB 

/INITIALIZE NUMBER 

16637 

4247 


JMS 

007 

/GET A DIGIT 

16640 

5501 


JMP I 

ERRNUM 


16641 

4247 

TWOMOR, 

JMS 

007 

/CAN HAVE UP TO < DIGITS 

16642 

5633 


JMP I 

OCTNUM 

/L.T. 4 

16643 

2114 


ISZ 

V 


16644 

5241 


JMP 

TWOMOR 


16645 

2233 


ISZ 

OCTNUM 

/4 DIGITS 

16646 

5633 


JMP I 

OCTNUM 




/OIGIT 

MUST BE OCTAL«USE ONLY 3 BITS 

16647 

0000 

D07, 

0 



16650 

4503 


JMS I 

GET 


16651 

1375 


TAO 

(•270 


16652 

7100 


CLL 



16653 

1374 


TAO 

(10 


16654 

3305 


OCA 

BUMP 

/SAVE DIGIT VALUE 

16655 

7420 


SNL 



16656 

5647 


JMP I 

007 

/NOT DIGIT AFTER ALL • Nl 

16657 

1104 


TAO 

NUMB 


16660 

7104 


CLL RAL 



16661 

7104 


CLL RAL 



16662 

7104 


CLL RAL 


/NUMB*8 

16663 

1303 


TAD 

BUMP 


16664 

3104 


DCA 

NUMB 


16665 

2247 


ISZ 

D07 

/TAKE SKIP RETURN 

16666 

5647 


JMP I 

007 


16667 

0000 

G2A, 

0 




80 
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1037 



/deposit 

IN LOCATION SPI 

1036 






1039 

16670 

4200 

OEPSIT, 

JMS 

GET20C 

1040 

16671 

5501 


JMP I 

ERRNUM 

1041 

16672 

4361 

OEPSLP, 

JMS 

XFLD 

1042 

16673 

3667 


OCA I 

G2A 

1043 

16674 

6211 


CDF 

CUR 

1044 

16675 

4507 


JMS 1 

LEGLIM 

1045 

16676 

5500 


JMP l 

ERRDLM 

1046 

16677 

5505 


JMP I 

ENOSTF 

1047 

16700 

4233 


JMS 

OCTNUM 

1048 

16701 

4506 


JMS I 

BCKUP 

1049 

16702 

4305 


JMS 

BUMP 

1050 

16703 

1104 


TAD 

NUMB 

1051 

16704 

5272 


JMP 

OEPSLP 

1052 






1053 

16705 

0000 

BUMP, 

0 


1054 

16706 

2267 


ISZ 

G2A 

1055 

16707 

5705 


JMP I 

BUMP 

1056 

16710 

1374 


TAD 

(10 

1057 

16711 

1162 


TAD 

GFLD 

1058 

16712 

3362 


DCA 

gfld 

1059 

16713 

5705 


JMP I 

BUMP 

1060 






1061 



/POST EVENT FLAG GIVEN 

1062 






1063 

16714 

4200 

POSTEF, 

JMS 

GET20C 

1064 

16715 

7410 


SKP 


1065 

16716 

5501 


JMP I 

ERRNUM 

1066 

16717 

1362 


TAD 

gfld 

1067 

16720 

3324 


DCA 

POSTOF 

1068 

16721 

1267 


TAD 

G2A 

1069 

16722 

4020 


CAL 


1070 

16723 

0005 


POST 


1071 

16724 

7402 

POSTOF, 

HLT 


1072 

16725 

5505 


JMP I 

ENDSTF 


/MUST HAVE 2 NUMJERS 
/SET FIELD 

/ADO IN NEW CONTENTS 


/MAY BE MORE CONSENTS 
/BUMF LOCATION POINTER 

/ROUTINE TO BUMP G2A 
/AH, NICE AND SIMPLE 
/ACROSS FIELD BOUNDARY 


/GET 5.0IGIT ADDUESS 
/SHOULD BE ONLY ! NUMBER 
/MORE IS ERROR 


/PRAY WHAT WE AR! 
/AN EVENT FLAG 


POSTING IS REALLY 


/MCR FOR RTSS 

V2 

1073 



1074 



1075 

16726 

4200 

1076 

16727 

4506 

1077 

16730 

7450 

1078 

16731 

7001 

1079 

16732 

7041 

1080 

16733 

3360 

1081 

16734 

4510 

1082 

16735 

1362 

1083 

16736 

0377 

1084 

16737 

7112 

1085 

16740 

7010 

1086 

16741 

1373 

1087 

16742 

4516 

1088 

16743 

1267 

1089 

16744 

4772 

1090 

16745 

1371 

1091 

16746 

4516 

1092 

16747 

4361 

1093 

16750 

1667 

1094 

16751 

6211 

1095 

16752 

4772 

1096 

16753 

4305 

1097 

16754 

4770 

1098 

16755 

2360 

1099 

16756 

5335 

1100 

16757 

5505 

1101 

16760 

0000 

1102 



1103 

16761 

0000 

1104 

16762 

7402 

1105 

16763 

5761 

1106 

16770 

5973 

1107 

16771 

5740 

1108 

16772 

6312 

1109 

16773 

4060 

1110 

16774 

0010 

mi 

16775 

7510 

1112 

16776 

6201 

1113 

16777 

0070 
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/EXAMINE LOCATION OR RANGE OF LOCATIONS 


PRNCON, 


LSTCNT, 

XFLD, 


JMS 

GET20C 

/GIT OCTAL VALUES 

JMS I 

BCKUP 

/NO SECOND NUMBER • 

SNA 


/IF 2D NUM IS ZER3, 

I AC 


/EXAMINE ONLY 1 LOC 

CIA 

OCA 

LSTCNT 

/• NO, OF LOCATIONS 

JMS I 

EOL 

/GFLO SET BY GET20C 

TAD 

gfld 

AND 

(70 


CLL RTR 
RAR 

TAD 

(4060 

/SPACE , NUMBER 

PUTW 

TAD 

JMS I 

G2A 

(PR12BT 

/PRINT THE LOCATION 

TAD 

(5740 

/PRINT A SLASH BE p OF 

PUTW 

JMS 

XFLD 

/SET FIELD 

TAD I 

G2A 

/GET CONTENTS 

CDF 

CUR 


JMS I 

(PR12BT 

/PRINT IT 

JMS 

BUMP 


JMS I 

(TTOUT 

/OUTPUT A LINE 

ISZ 

LSTCNT 

/DONE? 

JMP 

PRNCON 

/NO • DO SOME MORIS 

JMP I 

0 

ENDSTF 


0 

HLT 

JMP I 

XFLD 



EXAMINE ONLY 1 


LOC 
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/MCR POP PT88 V2 


ms 




IFDEF 

CLOCK 

1116 






ill? 

17000 

1777 

time, 

TAD I 

ccralt 

1118 

17001 

7640 


SZA 

CLA 

ills 

17002 

5216 


JMP 

PRNTM 

1120 

17003 

4776 

ootime, 

JMS I 

(HRMIN 

1121 

17004 

1777 


TAD I 

(CRALT 

1122 

17005 

7650 


SNA CLA 


1123 

17006 

4510 


JMS I 

EOL 

ll!« 

17007 

1111 


TAD 

ACL 

1115 

17010 

6203 


CDF CIP 

0 

1126 

17011 

3775 


DC A I 

(TOOL 

1127 

17012 

1112 


TAD 

ACH 

112S 

17013 

3774 


OCA I 

CTODH 

1126 

17014 

6213 


CDF CIP 

CUR 

1130 

17015 

3505 


JMP I 

END9TP 

nil 

17016 

3773 

prntm, 

OCA I 

(PI 

USB 

17017 

3261 


OCA 

HRS 

1133 

17020 

3262 


DCA 

MINS 

1134 

17021 

6002 


IOP 


1133 

17022 

6201 


CDF 0 


1136 

17023 

1773 


TAO I 

(TOOL 

1137 

17024 

3111 


DCA 

ACL 

1138 

17025 

1774 


TAD I 

(TODH 

1133 

17026 

3112 


OCA 

ACH 

1140 

17027 

6001 


ION 


1141 

17030 

6211 


CDF CUR 


1142 

17031 

1372 


TAD 

(FUOGEL 

1143 

17032 

4277 


JMS 

oblsub 

1144 

17033 

1371 

HRLOP, 

TAD 

(HRCON 

1145 

17034 

4277 


JMS 

OBLSUB 

1146 

17035 

2261 


ISZ 

HRS 

1147 

17036 

1112 


TAD 

ACH 

1148 

17037 

7700 


SMA CLA 


1149 

17040 

5233 


JMP 

HRLOP 

1130 

17041 

1370 

MINLOP, 

TAD 

(MINCON 

1151 

17042 

4263 


JMS 

OBLADO 

1152 

17043 

2262 


ISZ 

MINS 

1153 

17044 

1112 


TAD 

ACH 

1154 

17045 

7710 


SPA CLA 


1153 

17046 

5241 


JMP 

MINLOP 

1156 

17047 

7240 


STA 


1157 

17050 

1261 


TAD 

HRS 

1158 

17051 

4767 


JMS I 

(PR4BIT 

1159 

17052 

2773 


ISZ I 

(PI 

1160 

17053 

1262 


TAD 

MINS 

1161 

17034 

7041 


CIA 


1162 

17055 

1366 


TAD 

(74 

1163 

17056 

4767 


JMS I 

(PR4BIT 

1164 

17057 

4765 


JMS I 

(TTOUT 

1163 

17060 

5505 


JMP I 

ENDSTF 

1166 

17061 

0000 

HRS, 

0 


1167 

17062 

0000 

MINS, 

0 



/PRINT TIME 
/DECODE HOURS ♦ MINS 


/INHIBIT INTERRUPTS BETWEEN HALVES 


/CONVERT TOO TO HOURSIMINUTES 
/INHIBIT INTERRUPTS BETWEEN HALVES 


/GET TIME OP DAY PROM PAGE 0 OP PIELD 0 
/RE-ENABLE INTERRUPTS 


/TAKE OPF THE MIDNIGHT PUDGE 
/SUBTRACT HRS TIL OVERFLO 


/AC GOES NEGATIVE ON OVERFLOW 


/THIS TIME AC GOES POSITIVE ON OVERFLOW 


/MINS SPLIT BET 40RDS 


83 


/MCR 

FOR RTS8 

V2 
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1168 

17063 

0000 

OBLADD, 

0 



/DOUBLE PRECISION ADD ROUTINE 

1169 

17064 

3113 


OCA 


Q 


1170 

17065 

7100 


CLL 




1171 

17066 

1513 


TAO 

I 

Q 


1172 

17067 

1111 


TAD 


ACL 


1173 

17070 

3111 


DCA 


ACL 


1174 

17071 

2113 


ISZ 


Q 

/PREPARE FOR HI $ORD 

1173 

17072 

7004 


RAL 



/UPDATE HI WORD 

1176 

17073 

1112 


TAD 


ACH 


1177 

17074 

1513 


TAO 

I 

Q 


1178 

17075 

3112 


DCA 


ACH 


1179 

17076 

5663 


JMP 

I 

DBLADO 


1180 

1181 

17077 

0000 

OBLSUB, 

0 



/*• CAN BE CALLEC WITH DP*CUR OR DF*0 *• 

1182 

17100 

3113 


DCA 


Q 


1183 

17101 

6212 


C IF 

CUR 


/INHIBIT INTERRUFTS BETWEEN HALVES 

1184 

17102 

1513 


TAD 

I 

Q 

/GET LO VALUE 

1185 

17103 

7141 


CIA 

CLL 



1186 

17104 

1111 


TAD 


ACL 


1187 

17105 

3111 


DCA 


ACL 


1188 

17106 

2113 


ISZ 


Q 

/UPOATE FOR HI VHUE 

1189 

17107 

7024 


CML 

RAL 



1190 

17110 

1513 


TAD 

I 

Q 


1191 

17111 

7041 


CIA 




1192 

17112 

1112 


TAD 


ACH 


1193 

17113 

3112 


OCA 


ACH 


1194 

17114 

5677 


JMP 

I 

OBLSUB 


1195 

1196 

17115 

0000 

GETN, 

0 



/GET A NUMBER ROUTINE 

1197 

17116 

310« 


OCA 


NUMB 

/INITIALIZE NUMBER TO 0 

1198 

17117 

4503 

PSTSPC, 

JMS 

I 

GET 


1199 

17120 

4764 


JMS 

I 

(ISITNM 

/DIGIT? 

1200 

17121 

5332 


JMP 


VSITIS 

/YES • GO BUILD NUMBER 

1201 

17122 

1363 


TAD 


(•240 


1202 

17123 

7650 


SNA 

CLA 



1203 

17124 

5317 


JMP 


PSTSPC 

/PERMIT LEADING SPACES 

1204 

17125 

5501 


JMP 

I 

ERRNUM 


1205 

17126 

4503 

GETNXL, 

JMS 

I 

GET 


1206 

17127 

4764 


JMS 

I 

(ISITNM 


1207 

17130 

7410 


SKP 




1208 

17131 

5715 


JMP 

I 

GETN 

/RETURN WITH DELIMITER IN AC 

1209 

17132 

1362 

VSITIS, 

TAD 


(•260 


1210 

17133 

3343 


OCA 


DIG 


1211 

17134 

1104 


TAO 


NUMB 


1212 

17135 

7106 


CLL 

RTL 



1213 

17136 

1104 


TAO 


NUMB 


1214 

17137 

7004 


RAL 



/NUMBER SO FAR *13 

1215 

17140 

1343 


TAD 


DIG 

/♦ NEW NUMBER 

1216 

17141 

3104 


DCA 


NUMB 


1217 

17142 

5326 


JMP 


GETNXL 


1218 

17143 

0000 

DIG, 

0 





84 
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1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
1261 
1262 


✓THIS TABLE CONTAINS THE CONVERSION FACTORS FOR HOURS, 
/HINUTES l SECONOS TO TICKS, EACH IS A 2 WORO VALUE 
✓BECAUSE ALL THIS IS DONE BT DOUBLE WORD ARITHMETIC, 

✓THE HOUR TO TICKS VALUE ■ 6I*60*SHERTZ p 7020(OCT)*SHERTZ 
✓THE LOW WORD VALUE IS DETERMINED FOR THIS MULTIPLICATION 
✓BY THE ASSEMBLER, 

✓THE HIGH WORO IS (7020*SHERTZ)✓10000, 

✓THIS MUST BE REDUCED FOR THE ASSEMBLER 

✓ IT IS ■ 341»SHERTZM00 ■ 340*SHERTZM80*3HERTZ^000 ■ 

✓ 7*8HERTZ/10 + SHERTZ^400 ■ (7*SHERTZ*8HERTZM0) ✓ 10 

17144 0310 INTTBL, "M 

17145 5700 HRCON, 7020*SHERTZ 
0001 HRCTEMa 8HERTZX40 

17146 0064 HRCON1, 7*3HERTZ*HRCTEMX10 

17147 0315 "M 

17150 7020 MINCON, 74<*SHERTZ 

17151 0000 MINCN1, 17*SHERTZX2000 

17152 0323 "S 

17153 0074 SECCON, SHERTZ 

17154 0000 0 

17155 0324 "T 

17156 0001 TICCON, 1 

17157 0000 0 

17160 0000 0 /EOT 

17162 7520 

17163 7540 

17164 5422 

17165 5473 

17166 0074 

17167 7302 

17170 7150 

17171 7145 

17172 7525 

17173 7275 

17174 0037 

17175 0036 

17176 7527 

17177 5472 

7200 PAGE 
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✓ MCR 

FOR RT30 

V2 



PA 

1263 

17200 

1777 OATEX, 

TAO 

I 

ccralt 

1264 

17201 

7640 

8ZA 

CLA 


1265 

17202 

5244 

JMP 


PRNTOT 

1266 

17203 

3243 

OCA 


OATEwO 

1267 

17204 

4234 

JM8 


GETNXT 

1268 

17205 

0376 

AND 


(17 

1269 

17206 

7112 

CLL 

RTR 


1270 

1 7207 

7012 

WTR 



1271 

17210 

7010 

RAR 



1272 

17211 

3243 

OCA 


DATEWO 

1273 

17212 

4234 

JMS 


GETNXT 

1274 

17213 

0375 

AND 


(37 

1275 

17214 

7106 

CLL 

RTL 


1276 

17215 

7004 

RAL 



1277 

17216 

1243 

TAO 


DATEWO 

1278 

17217 

3243 

OCA 


OATEWO 

1279 

17220 

4774 

JMS 

I 

(GETN 

1280 

17221 

7200 

CLA 



1281 

17222 

1773 

TAO 

I 

(DIG 

1282 

17223 

1243 

TAO 


DATEWD 

1283 

17224 

6201 

COF 


0 

1284 

17225 

3772 

DCA 

I 

(DATE 

1285 

17226 

6211 

COF 


CUR 

1286 

17227 

4506 

JMS 

I 

BCKUP 

1287 

17230 

4507 

JMS 

I 

LEGLIH 

1288 

17231 

5500 

JMP 

I 

ERRDLM 

1289 

17232 

5505 

JMP 

I 

ENDSTF 

1290 

17233 

57 71 

JMP 

I 

(OOTIME 
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✓PRINT OR GETt 
✓PRINT DATE 
✓WHERE WILL THIS BEft 
✓GET MONTH 


✓IN STANDARO OS'B FORMAT 
✓HERE COMES DAY 


✓FOLLOWED BY YEuR 
✓ OF WHICH WE TAI E ONLY LAST DIGIT 
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/HCR FOR RTSS V2 


1291 

17234 

0000 

GETNXT, 

0 



1292 

17235 

4774 


JMS I 

(BETN 


1293 

17236 

1370 


TAO 

(■257 


1294 

17237 

7640 


8ZA 

CLA 

/USE / AS DELXH 

1295 

17240 

5500 


JMP X 

ERRDLM 


1296 

17241 

1104 


TAO 

NUMB 


1297 

17242 

5634 


JMP X 

GETNXT 


1298 

17243 

0000 

DATEWD, 

0 



1299 







1300 

17244 

3275 

PRNTOT, 

OCA 

PI 


1301 

17245 

6201 


CDF 

0 


1302 

17246 

1772 


TAD X 

(DATE 


1303 

17247 

6211 


CDF 

CUR 


1304 

17250 

3243 


OCA 

OATEWD 

/SAVE CURRENT t» 

1305 

17251 

1243 


TAD 

DATEWD 


1306 

17252 

0367 


AND 

(7400 

/GET MONTH 

1307 

17253 

7106 


CIL RTL 



1308 

17254 

7006 


RTL 



1309 

17255 

7004 


RAL 



1310 

17256 

4302 


JMS 

PR4BIT 


1311 

17257 

7240 


CLA CMA 



1312 

17260 

3275 


OCA 

PI 

/DAY WILL BE S» 

1313 

17261 

1243 


TAD 

DATEWD 


1314 

17262 

0366 


ANO 

(370 

/GET MONTH 

1315 

17263 

7112 


CLL RTR 



1316 

17264 

7010 


RAR 



1317 

17265 

4302 


JMS 

PR4BIT 


1318 

17266 

1243 


TAD 

DATEWD 

/AND YEAR 

1319 

17267 

0365 


AND 

(7 


1320 

17270 

1364 


TAD 

(70 

/GOOD TXL 77 

1321 

17271 

4763 


JMS I 

(PRNTNM 


1322 

17272 

4762 


JMS I 

(TTOUT 

/PUT OUT LINE 

1323 

17273 

5505 


JMP I 

ENDSTP 


1324 







1325 

17274 

0000 

TENCNT, 

- 0 



1326 

17275 

0000 

PI# 

0 



1327 

17276 

5700 

SPEC, 

5700 

/SLASH 

FOR DATE 

1328 

17277 

0057 


57 



1329 

17300 

7200 


7200 

/I FOR 

TIME 

1330 

17301 

0040 


40 
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1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 
1362 

1383 

1384 


/PRINT ROUTINE FOR 4 BIT NUMBERS 


17302 

17303 

17304 

17305 

17306 

17307 
17310 
173U 

17312 

17313 

17314 

17315 

17316 

17317 

17320 

17321 

17322 

17323 

17324 

17325 

17326 

17327 
17330 
1 7331 

17332 

17333 

17334 

17335 

17336 

17337 

17340 

17341 

17342 

17356 

17357 

17360 

17361 

17362 

17363 

17364 

17365 

17366 

17367 

17370 

17371 

17372 

17373 

17374 

17375 

17376 

17377 


0000 

PR4BIT, 

0 




3113 


DC A 


Q 


1361 


TAO 


(57 


3274 


OCA 


TENCNT 

/TENS INITAILLT'«0 

1113 


TAD 


Q 

/GET THE DIGITS 

2274 

OECMOR, 

ISZ 


TENCNT 


1360 


TAO 


(•12 


7500 


SMA 




5307 


JMP 


OECMOR 

/COUNT TENS 

1357 


TAD 


(72 

/60M2 

3113 


DC A 


Q 


1275 


TAD 


PI 

/SPLIT ACROSS WORDST 

7450 


SNA 




5335 


JMP 


REG 

/NO 

1356 


TAO 


(SPEC*1 

/PI IS ♦ ! OR -l 

3275 


DC A 


PI 

/POINT TO CORRECT FILLERS 

1675 


TAO 

I 

PI 

/yes-get leaoinc CHAR 

1274 


TAO 


TENCNT 


4516 


PUTW 



/1 ST DIGIT TO RIGHT 

2275 


ISZ 


PI 


1113 


TAD 


Q 

/2ND DIGIT TO LEFT 

7106 


CLL 

RTL 



7006 


RTL 




7006 


RTL 




1675 


TAO 

I 

PI 

/AND 2ND DELIM 

4516 

SAVIT, 

PUTW 




5702 


JMP 

I 

PR4BIT 


1274 

REG, 

TAO 


TENCNT 


7106 


CLL 

RTL 



7006 


RTL 




7006 


RTL 




1113 


TAO 


Q 


5333 


JMP 


SAVIT 



7277 

0072 

7766 

0057 

5473 

6324 


0370 

7400 

7521 

7003 

0040 

7143 

7115 

0037 

0017 

5472 

7400 
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1385 



/REQUEST 

A TASKI 


1386 






1387 



/A) 

IMMEDIATELY 

1388 



/B) 

AFTER AN 

INTERVAL 

1389 



/C) 

AT A TIME OF DAY 

1390 



/D) 

AFTER AN 

INTERVAL ANO PERIODICALLY 

1391 



/E) 

AT A TIME OF DAY AND PERIODICALLY 

1392 






1393 

17400 

4777 

SCHEO, 

JMS I 

CGETT8K /GET TASK 

1394 

17401 

4506 


JMS I 

BCKUP 

1395 

17402 

4507 


JMS I 

LEGL1M 

1396 

17403 

5500 


JMP I 

ERRDLM /MUST BE OCLXM 

1397 

17404 

5776 


JMP I 

(REQUST /JUST A RCQUES" 

1398 

17405 

3112 


DCA 

ACH 

1399 

17406 

3111 


DCA 

ACL /INITIALIZE INTERVAL 

1400 

17407 

4503 


JMS I 

GET 

1401 

17410 

1375 


TAD 

(•", /CHECK FOR NUU INTERVAL 

1402 

17411 

7450 


SNA 


1403 

17412 

5223 


JMP 

SAVTIM /YES • GET PER.OD 

1404 

17413 

1374 


TAD 

(",•"# /check for p t::he»oo»oay 

1405 

17414 

7640 


SZA CLA 


1406 

17415 

5310 


JMP 

INTSCH 

1407 

17416 

4773 


JMS I 

(HRMIN /decooe time specification 

1408 

17417 

1372 


TAD 

(TODL 

1409 

17420 

6201 


CDF 0 


1410 

17421 

4771 


JMS I 

(DBLSUB /SUBTRACT CURRENT T.O.D, TO 

1411 

17422 

6211 


CDF CUR 


1412 

17423 

1112 

SAVTIM, 

TAD 

ACH 

1413 

17424 

3321 


DCA 

SCHDHI 

1414 

17425 

ini 


TAD 

ACL 

1415 

17426 

3322 


DCA 

SCHOLO 

1416 

17427 

1770 


TAO I 

ccralt 

1417 

17430 

7640 


SZA CLA 

/END OF LINE SI ENT 

1418 

17431 

5240 


JMP 

ZROINT /YES • NO INTERVAL 

1419 

17432 

4253 


JMS 

GETINT 

1 420 

17433 

1112 


TAO 

ACH 

1421 

17434 

3323 


DCA 

RSCHHI /SAVE RESCHEOUlE UNITS IN C 

1422 

17435 

1111 


TAD 

ACL 

1423 

17436 

3324 


DCA 

RSCHLO 

1424 

17437 

7332 


AC2000 


1425 

17440 

1367 

ZROINT, 

TAD 

(1000 

1426 

17441 

1766 

3N0CLK, 

TAO I 

CT3KWD 

1427 

17442 

3320 


OCA 

SCHDWD 

1428 

17443 

4020 


CAL 


1429 

17444 

0000 


SEND 


1430 

17445 

0001 


CLOCK 


1431 

17446 

7515 


SCHMES 


1432 

17447 

5765 


JMP I 

(BKELEN 

1433 

1434 



/CANCEL 

, ALL CLOCK QUEUE ENTRIES FOR A TASK 

1435 

1436 

17450 

4777 

CANCEL, 

JMS I 

(GETTSK /GET TASK • RETURNS NUMBER 

1437 

17451 

7330 


AC4000 

/"CANCEL" OPCOCE FOR CLOCK 

1438 

17452 

5240 


JMP 

ZROINT /SEND THE CLOCK THE CANCEL 


"T3KWD" 
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/MCR FOR RTSS V2 
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1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 
1 474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 


/ROUTINE TO GET AN INTERVAL • 

/INTERVALS ARE A NUMBER FOLLOWED BY H,F,S OR T 
/THIS ROUTINE IS JUMPED INTO BY "HRMIN" 


17453 

0000 

GETINT, 0 


17454 

4764 

JMS I 

(GETN 

17455 

3313 

OCA 

92 

17456 

1363 

TAD 

(INTT0L 

17457 

3314 

DCA 

SI 

17460 

3112 

DCA 

ACH 

17461 

3111 

OCA 

ACL 

17462 

1714 

NXTINT, TAD I 

SI 

17463 

2314 

ISZ 

81 

17464 

7450 

SNA 


17465 

5762 

JMP 1 

(CHRER 

17466 

7041 

CIA 


17467 

1313 

TAD 

82 

17470 

7650 

SNA CLA 


17471 

5275 

JMP 

FNDINT 

17472 

2314 

ISZ 

SI 

17473 

2314 

ISZ 

SI 

17474 

5262 

JMP 

NXTINT 

17475 

1104 

fndimt, tad 

NUMB 

17476 

7041 

CIA 


17477 

3313 

OCA 

S2 

17500 

1314 

MORUNT, TAO 

SI 

17501 

4761 

JMS I 

(DBLADO 

17502 

2313 

ISZ 

S2 

17503 

5300 

JMP 

MORUNT 

17504 

4507 

JMS I 

leglim 

17505 

5500 

JMP I 

ERRDLM 

17506 

7000 

SC 7 000, 7000 


17507 

5653 

JMP I 

GETINT 


/THIS IS THE ALPHA FOR UNIT 

/CLEAR AC PRIOR TO ADOS 
/NOW CHECK FOR HATCHING UNITS 

/FOUND THEM 
/TRY AGAIN 

/PREPARE COUNT ** HRMlN ENTERS HERE ** 
/PASS UNITS FOR ADD 

/illegal terminating DELIMITER 
/EITHER SPACE, COMMA, OR EOL IS OK 


17510 4506 

17311 4253 

17512 5223 

17513 0000 

17514 0000 

17515 0000 

17520 0000 

17521 0000 

17522 0000 

17523 0000 

17524 0000 


INTSCH, JMS I 
JMS 
JMP 

S2, 0 

SI, 0 

SCHMES, Z0LOCK 
SCHOWD, 0 
SCHDHI, 0 
SCHDLO, 0 
RSCHHI, 0 
RSCHLO, 0 


BCKUP 

GETINT /GET INTERVAL 
3AVTIM 


3 

/2000*TASK NUM 


/RESCHEDULE INTERVAL CH r APPLICABLE) 
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/MCR FOR RTSS V2 


1484 

1485 

1486 

1487 

1488 
1484 

1490 

1491 

1492 

1493 

1494 
1493 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 


PAL8»V9D 09/11/75 RACE 37 

/COMPUTE THE NUMBER OF TICKS IN A OAT FOR THE TXME-OF-DAY FUDGE 


/IF SREC HRS,MUST HAVE MINS 
/ONLY I BET HRS • MINI 
/NO I • ERROR 



0005 


TEMPHO* 

SHERTZX4I 

17325 

3000 

FUDGEL, 

•600*SHERTZ 

17526 

5416 

FUOGEH, 

-25*SHERTZ*TEMPH. 

17527 

0000 

HRMIN, 

0 


17530 

4764 


JMS I 

(GETN 

17531 

1360 


TAD 

(•"1 

17532 

7640 


SZA CLA 


17533 

5501 


JMP I 

ERRNUM 

17534 

1327 


TAD 

HRMIN 

17535 

3253 


DCA 

GETINT 

17536 

1104 


TAD 

NUMB 

17537 

7166 


STL CMA 

RTL 

17540 

7006 


rtl 


17541 

1104 


TAO 

NUMB 

17542 

7146 


CLL CMA 

rtl 

17543 

3327 


DCA 

HRMIN 

17544 

4764 


JMS I 

(GETN 

17545 

4506 


JMS I 

8CKUP 

17546 

1357 


TAO 

(MINCON 

17547 

3314 


OCA 

SI 

17550 

1326 


TAO 

FUDGEH 

17551 

3112 


DCA 

ACH 

17552 

1325 


TAD 

FUDGEL 

17553 

3111 


DCA 

ACL 

17554 

1327 


TAD 

HRMIN 

17555 

5275 


JMR 

FNDINT 

17557 

7150 




17560 

7506 




17561 

7063 




17562 

6076 




17563 

7144 




17564 

7115 




17565 

5735 




17566 

5677 




17567 

1000 




17570 

5472 




17571 

7077 




17572 

0036 




17573 

7527 




17574 

7754 




17575 

7524 




17576 

5726 




17577 

5603 





7600 


PAGE 



/FAKE OUT "GETIVT" TO DO SOME WORK FOR US LATER 
/MULTIPLY HRS BY 60 TO GET MINS 


/GET MINS 

/SET UNITS TO MINUTES 

/INITIALIZE AC TO MIDNIGHT FUDGE 
/BEFORE WE ADO IN TICKS 

/CONVERT MINUTE! TO TICKS AND RETURN 


91 


/MCR FOR RTSS V2 


RALS-V9D 09/11/75 RAGE 38 


ACH 

0112 

endstf 

0105 

ACL 

0111 

endx 

5670 

AC00S2 

7326 

EOL 

0110 

AC20S0 

7332 

EOLA 

5465 

AC3777 

7350 

EORMWT 

0200 

AC40B0 

7330 

ERMSG 

6063 

AC7775 

7346 

ERRA 

6070 

AC7776 

7344 

errdlm 

0100 

ALPNUM 

5405 

ERRNAM 

0102 

BACKUP 

5460 

ERRNUM 

0101 

BCKUR 

0106 

exam 

6726 

BKELEN 

5735 

EXDLAY 

6311 

BKGCT 

6062 

EXIT 

6273 

BKGLP 

6052 

EXMSG 

5505 

blkarg 

0010 

E1 MSG 

5512 

BUMP 

6705 

flglp 

6445 

CAL 

4020 

flgtbl 

6535 

CANCEL 

7450 

FNDINT 

7475 

CHECKR 

0001 

FREE 

4000 

CHKMOR 

5705 

FUDGEH 

7526 

CHRER 

6076 

FUDGEL 

7525 

CLKQLN 

0820 

FULSYS 

6411 

CLKTYR 

0000 

GET 

0103 

CLOCK 

0001 

GETA 

5400 

CMDLP 

6031 

GETINT 

7453 

CMDLST 

6127 

GETN 

7115 

COMMAN 

0043 

getnxl 

7126 

cralt 

5472 

GETNXT 

7234 

CS A 

0013 

gettsk 

5603 

CSAF 

0014 

GET20C 

6600 

CUR 

0010 

GFLD 

6762 

CUR2 

0010 

gotask 

5612 

DATE 

0040 

G2A 

6667 

DATEWO 

7243 

03 

5675 

DATE* 

7200 

G7 

5676 

OBLADD 

7063 

HERTZ 

0170 

OBLSUB 

7077 

HGHFLO 

0030 

OECMOR 

7307 

HRCON 

7145 

OEPSIT 

6670 

HRC0N1 

7146 

OEPSLR 

6672 

HRCTEM 

0001 

DERAIL 

0007 

HRLOP 

7033 

DF32 

0012 

HRMIN 

7527 

DIG 

7143 

HRS 

7061 

DISABL 

5745 

ICS 

0016 

dlmer 

6112 

INBUF 

5512 

DNEWT 

0001 

INIWT 

0000 

DOTIME 

7003 

INIMT2 

0000 

DTA 

0007 

INLENG 

0052 

007 

6647 

1NTSCH 

7510 

EAE 

0001 

1NTTBL 

7144 

EFWT 

2000 

IP 

5404 

ENABLE 

5740 

I3ITDN 

6616 

ENABWT 

0040 

ISITNM 

1 5422 

END 

5671 

ITSEOL 

5456 

ENOS 

6000 

legal 

5436 


LEGLIM 

0107 

ROSTEF 

6714 

LPT 

0004 

PRDTLR 

6510 

LSTCNT 

6760 

RRNCON 

6735 

LTA 

0006 

PRNTDT 

7244 

L7600 

6050 

RRNTM 

7016 

MCR 

0005 

RRNTNM 

6324 

MCREF 

0041 

RR12BT 

6312 

MCRMES 

6043 

PR4BXT 

7302 

MCRSYS 

0001 

PSTSRC 

7117 

MINCN1 

7151 

PUTW 

4516 

MINCON 

7150 

RUTWX 

5432 

MINLOP 

7041 

PWRF 

0002 

MINS 

7062 

PWRFAL 

0031 

MORUNT 

7500 

Rl 

7175 

MSGTSL 

1176 

Q 

0113 

MSGWT 

0020 

RECEIV 

0081 

NAMCOM 

5700 

REG 

7335 

NAME 

6246 

REOUST 

57 ?6 

NAMEA 

5600 

RESTBL 

1414 

NAMER 

6104 

RF08 

0011 

NAMES 

6176 

RK8 

0010 

NAMGET 

5632 

R8CHHI 

75 53 

NETWT 

0010 

R3CHL0 

7514 

NMFXT 

0034 

RUN 

0003 

NMT0L 

6200 

RUNWT 

1000 

NOCRAL 

5450 

RX8A 

00 17 

NOOTL 

6120 

SAVIT 

73 33 

NOGOOD 

1457 

SAVTIM 

74,»3 

NOMOFG 

6460 

SCHDHI 

75,!1 

NONRWT 

4000 

SCHOLO 

75,>2 

NTASKS 

0023 

SCHOWO 

75,>0 

NUMB 

0104 

SCHED 

74U0 

NUMER 

6120 

8CHMES 

75 k5 

NUMT8K 

5623 

SC7000 

7506 

NXT 

5650 

SECCON 

7 1 '53 

NXTINT 

7462 

SENO 

001)0 

NXTTSK 

6521 

SENDW 

00.1 

OCTNUM 

6633 

SHERTZ 

00”4 

0NET3K 

6414 

3KPIN3 

0006 

OSFILL 

0004 

SNDCLK 

7441 

OSFLDS 

0002 

SPEC 

72’6 

OSKBDV 

0030 

START 

60! 1 

0SSY8D 

0010 

START2 

601(1 

OSTTDV 

0031 

STOP 

57:12 

OSS 

0023 

ST1 

65.(3 

OSSF 

0020 

ST2 

65:54 

R 

0115 

SUNIT 

0000 

PARTBL 

1420 

SUSPNO 

0004 

RARTNS 

0000 

SWAPPE 

00i! 1 

PDRit 

0000 

SWPWT 

0400 

R0R8E 

0001 

SYS 

8010 

RXNSUP 

6047 

SYSOUT 

6526 

ROST 

0005 

SYSTAT 

6400 

R08TDF 

6724 

SI 

7514 

P0STD3 

I 5424 

S2 

7513 


92 



PALS-V9D 


•9/11/71 PAGE 31*1 


/NCR POP RTS* V2 

TASK 0005 
TASKS 0824 
TEHPH S8S5 
TENCNT 7274 
TFTABL 1387 
TXCCON 7156 
TIME 7888 
TOOH 0837 
TOOL 8830 
T3KW0 5077 
TSTA0L 1244 
TSWFLG 0835 
TTOUT 5473 
TTY 0803 
TWOMOR 0041 
UNBARG 0012 
UPCHCK 0413 
USERWT 0100 
V 0114 
W 5504 
WAITE 0802 
WAIT* 4425 
XFLD 0701 
XNAME 5001 
XNAME1 5002 
YSITIS 7132 
ZROINT 7440 


93 


ERRORS DETECTED I 0 
LINKS GENERATEDI 0 



1 


4 


ACH 

266# 763 

776 

777 

779 

1127 

1135 

116? 

1193 

1176 

1176 1191 1 

1193 : 

1396 

1412 

1420 

1866 

1 IM 



ACL 

265* 1124 1 

1449 1910 

1137 : 

1172 

1173 

1186 

1167 

1399 

1414 

1422 

AC0002 

1126 









AC2000 

lit# 1424 









AC3777 

110# 









AC4000 

109# 1437 









AC7775 

106# 1006 









AC7776 

107# 414 









ALPNUM 

268# 296 

299 

300 

418 

410 

436 




AO 

135# 









BACKUP 

262 342# 

346 







996 

BCKUP 

262# 404 

406 

441 

489 

542 

764 

773 

646 


1001 1048 

1076 

1266 

1394 

1473 

1106 




bkelen 

462 489# 

499 

507 

1432 






BKGCT 

564 565 

566 

567 

568 

572# 





BKGLP 

564# 569 

571 








blkarg 

130# 505 









BUMP 

1025 1032 

1049 

1053# 

1055 

1059 

1096 



1426 

CAL 

116# 357 

460 

467 

496 

504 

931 

177 

1069 

CANCEL 

627 1436# 









CHECKP 

54# 









CHKMOR 

457# 466 

471 








CHRER 

419 563# 

1453 








CLCK 

670 









CLKQLN 

95# 









CLKTYP 

94# 







1115 

1430 

CLOCK 

63# 93 

173 

476 

479 

621 

666 

669 

CMDLP 

547# 553 









CMOLST 

545 611# 









COMMAN 

160# 






1416 



cralt 

331 354# 

522 

537 

1117 

1121 

1263 



cs 

136# 









CSA 

74# 695 

696 








CSAF 

75# 700 

701 

702 







CT 

CUR 

136# 

175 175 

239# 

247 

253 

526 

661 

901 

922 

1043 

1094 1129 

1141 

1163 

1265 

1303 

1411 




CUR2 

183 183 

247# 








OATE 

166# 1264 

1302 





1305 

1313 

1316 

OATEWO 

1266 1272 

1277 

1278 

1282 

1298# 

> 1304 

DATEX 

623 1263# 









OBLAOO 

1151 1166# 

1179 

1465 







OBLSUB 

1143 1145 

1161# 

1194 

1410 






OECMOR 

1338# 1341 









0EP5IT 

634 1039# 









OEPSLP 

1041# 1051 









DERAIL 

129# 









DF32 

73# 









DIG 

1210 1215 

1216# 

1261 







DI3ABL 

503# 616 









OLMER 

256 595# 









DNEWT 

149# 









ooriMt 

1120# 1290 









OTA 

69# 678 

679 




1031 




D07 

987 1009 

1011 

1020# 1027 

1034 




EAE 

50# 









EFUT 

141# 530 

945 









I 



95 



enable 

495# 

616 









enabwt 

146# 

498 

506 

953 







END 

442# 

443 









ENOS 

261 

522# 









ENDSTF 

261# 

491 

540 

780 

932 

1046 

1072 

1100 

1130 

1103 


1289 

1323 









ENDX 

431 

439 

441# 








EOL 

264# 

490 

774 

1081 

1123 






EOL* 

264 

348# 

351 

352 







EORMWT 

144# 

955 









ERMSG 

573# 

580 









ERRA 

576# 

583 

589 

595 

601 






ERRDLM 

256# 

350 

766 

767 

848 

998 

1045 

1288 

1 c 95 

1396 


1469 










errnam 

258# 

392 

544 

769 

772 






ERRNUM 

257# 

401 

1010 

1040 

1065 

1204 

1494 




EXAM 

632 

785 

1075# 








exolay 

790 

797# 









EXIT 

642 

782# 









EXMSG 

360 

367# 









E 1 MSG 

361 

36b 

370# 








flglp 

884# 

891 

894 








flgtbl 

882 

943# 









FNDINT 

1457 

1461# 

1512 








FREE 

133# 










FJOGEH 

1488# 

1507 









FUDGEL 

1142 

1487# 

1509 








FULSYS 

849 

854# 









GET 

259# 

289 

324 

407 

989 

1021 

1198 

1205 

1400 


GETA 

259 

279# 

282 








GETINT 

1419 

1443# 

1471 

1474 

1496 






getn 

1196# 

1208 

1279 

1292 

1444 

1491 

1503 




getnxl 

1205# 

1217 









getnxt 

1267 

1273 

1291# 

1297 







gettsk 

387# 

403 

477 

486 

495 

503 

760 

850 

1393 

1436 

GET20C 

978# 

999 

1003 

1004 

1039 

1063 

1075 




GFLD 

993 

1057 

1058 

1066 

1082 

1104# 





gotask 

395# 

410 









G2 A 

986 

991 

995 

1036# 

1042 

1054 

1068 

1088 

1093 


G3 

415 

437 

447# 








G7 

413 

429 

434 

435 

436 

448# 






HERTZ 97# 


HGHFLO 

52# 






HRCON 

1144 

1231# 





HRCON1 

1233# 






hrctem 

1232# 

1233 





HRLOP 

1144# 

1149 





hrmin 

1120 

1407 

1490# 

1495 

1502 

1511 

HRS 

1132 

1146 

1157 

1166# 



ICS 

76# 






inBuf 

371# 

560 





INIWT 

179 

240# 





INImT2 

187 

248# 





INLENG 

250# 

371 

559 




intsch 

1406 

1473# 





inttbl 

1230# 

1446 





IP 

280 

281 

283# 

344 

345 

536 

isitdn 

980 

986 

992# 




ISITNM 

298 

305# 

310 

312 

1199 

1206 

itseol 

332 

339# 








98 



LEGAL 

163 

3230 

336 

339 

LEGLIM 

<630 

349 

442 

536 


1468 




LPT 

660 

719 

720 


lstcnt 

1080 

1096 

11010 


LTA 

680 

729 

730 


L7600 

5610 

563 



NCR 

670 

9B 

<30 

660 

MCREF 

1670 

527 



mcrmes 

534 

5500 



MCRSY8 

91 

2420 

142 

171 

MINCN1 

12370 




MXNCON 

1150 

12360 

1900 


HXNLOP 

11500 

1155 



MINS 

1133 

1152 

1160 

11670 

mqrunt 

14640 

1467 



MSGTBL 

1520 

153 

172 

160 

M3GWT 

1470 

943 



NAMCOM 

390 

4520 

460 

472 

NAME 

620 

7600 



NAMEA 

3830 

412 



NAMER 

258 

5690 

644 


NAMES 

6580 

660 

664 

669 


706 

710 

715 

720 


762 

873 



NAMGIT 

366 

4110 

412 

421 

NETWT 

1480 




NMFIT 

2510 

274 

757 


NMTBL 

453 

6570 

656 

756 

NOCRAL 

329 

3330 



NOOTL 

906 

9270 



NOGOOD 

337 

3400 



NOMOFG 

868 

6950 



NONRMT 

957 




MASKS 

530 

78 

153 

155 


455 

657 

756 

757 

NUMB 

2600 

409 

981 

994 


1211 

1213 

1216 

1296 

NUMER 

257 

6010 



NUMTSK 

389 

4040 



NXT 

4250 

440 



NXTINT 

14500 

1460 



NXTTSK 

667 

9280 



OCTNUM 

405 

979 

1000 

10054 

ONETSK 

653 

8570 



OSFILL 

680 




osflos 

840 




OSKBDV 

850 




OSSYSD 

870 




OSTTDV 

860 




088 

760 

63 

714 

715 

0S8F 

790 

709 

710 

711 

P 

2690 

454 

457 

461 


554 

555 

556 

652 

PARTBL 

1590 




PARTNS 

550 




PDP12 

490 




PDP8E 

480 

793 



PINBUF 

535 

5600 



POST 

1270 

1070 




340 

745 ®47 997 1044 1207 1395 


437 03S 


097 

473 770 


674 

679 

664 

691 

096 

701 

725 

730 

736 

742 

■'47 

752 

445 

543 

766 





156 

159 

246 

274 

394 

399 

854 






1002 

1006 

1028 

1033 

11150 

1197 

1461 

1497 

1500 




1012 

1015 

1016 

1047 




442 449 544 547 !i46 549 

055 904 920 929 


POSTDF 

POST0S 

POSTEF 

PROTLP 

PRNCON 

PRNTOT 

PRNTM 


1047 10710 

1170 


RSCHHJ 

RSCHLO 

RUN 

RUNWT 

RX0A 

RX0B 

RX6C 

RX8D 

SAVIT 

SAVTIM 

SCHOHI 

SCHOLO 

SCHOWO 

SCMED 

SCHHES 

SC 7 000 

SECCON 

SEND 

SENDW 

SHERTZ 

SKPINS 

SNOCLK 

SPEC 

STAWT 

START2 

STOP 


636 

919# 

10620 

1265 

1119 


10630 

926 

1099 

13000 

11310 


PRNTNM 

804 

606 

8090 

620 

669 

1321 





PR12BT 

7980 

807 

917 

923 

1069 

1095 





PR4BIT 

1158 

1163 

1310 

1317 

13330 

1359 





PSTSPC 

1198# 

1203 









PUTW 

270# 

356 

819 

893 

905 

937 

1067 

1091 

l-'5l 

1356 

PUTWX 

271 

314# 

317 








PWRF 

64# 

724 

725 

726 







PWRFAL 

510 










PI 

1131 

1159 

1300 

1312 

13260 

1344 

1346 

1349 

i:;52 

1357 

0 

2670 

290 

291 

297 

325 

326 

424 

799 

000 

60S 


898 

900 

1169 

1171 

1174 

1177 

1162 

1164 

1)66 

1196 


1334 

1337 

1343 

1353 

1364 






RECEIV 

1230 










REG 

1346 

13600 









REOUST 

4790 

139 7 









RESTBl 

1580 

159 









RF08 

720 

690 

691 

692 







RK 6 

710 

87 

102 

673 

674 







14620 
14630 
481 
947 
735 
742 
74 7 
752 
13560 1365 
1403 14120 1475 

14800 
14810 
1479# 

630 
1478# 


1421 

1423 

1250 

1420 

770 

741 

746 

751 


1413 
1415 
1427 
477 
1431 
1470# 

1240# 

1220 1429 
131# 358 

98# 1231 
128# 

1426# 

1327# 1347 
176 523 

184 
486# 


736 737 

743 

748 

753 


13930 


532 578 

1232 1233 1236 1237 1240 I486 1487 I486 


563# 

614 


ST 1 

87a 

875 

877 

878 

883 

664 

685 

886 


916 

921 

924 

940# 





8T2 

859 

661 

663 

864 

689 

910 

925 

941# 

3UNIT 

103# 








SUSPNO 

126# 

486 







SWAP 

685 








SWAPPE 

70# 

101 

157 

159 

683 

664 



SwPwT 

143# 

949 







SYS 

102# 










8YS0UT 

670 

876 

879 

915 

919 

934# 

938 


3Y3TAT 

639 

845# 







31 

1447 

1450 

1451 

1458 

1459 

1464 

1477# 

1586 

32 

1445 

1455 

1463 

1466 

1476# 




TASK 

172 

174 

178 

236# 

526 




TA3K2 

180 

162 

166 

246# 





TEMPH 

I486* 

1486 







TENCNT 

1325# 

1336 

1338 

1350 

1368 




TFT ABL 

155# 

158 

178 

166 

857 




TICCON 

1244# 








TIME 

625 

1117# 







TOOH 

165# 

1128 

1136 






TOOL 

164# 

1126 

1136 

1406 





TSKWD 

395 

396 

402 

449# 

479 

1426 



TSTABL 

153# 

155 

174 

182 

913 




TSWFLG 

163# 

787 







TTOUT 

355# 

363 

927 

1097 

1164 

1322 



TTY 

65# 

359 

533 

579 

663 

664 



TWOMOR 

1011# 

1014 







UDC 

135 

705 

706 






UNBARG 

132# 

497 







UPCHCK 

856# 

931 







USERWT 

145# 

951 







V 

268# 

393 

456 

458 

788 

611 

611 

616 


856 

856 

666 

871 

895 

911 

1007 

1813 

w 

315 

316 

362 

365* 





WAITE 

124# 








WAITM 

118# 

529 







XFLD 

1041 

1092 

1103# 

1105 





XNAME 

383 

384# 

464 

551 

771 




XNAME1 

385# 

417 

467 

778 

782 




YSITI3 

1200 

1209# 







ZROINT 

1418 

1425# 

1638 







*15570 361 

*15571 335 

*15572 333 

*15573 311 

*15574 308 

*15575 306 

*15576 294 

*15577 292 

115765 455 

*15766 453 

*15767 433 

*15770 425 432 

*15771 420 

*15772 419 

*15773 418 430 438 

*15774 416 

*15775 405 

*15776 399 

*15777 394 

*16171 551 

*16172 545 

*16173 543 

216174 536 

*16175 527 

*16176 526 

216177 522 537 

*16363 818 


1 4 


99 



*16364 

815 

817 

*16365 

810 


*16366 

795 


*16367 

787 


*16370 

785 


*16371 

783 


*16372 

778 

782 

*16373 

775 


*16374 

770 


*16375 

768 


*16376 

762 


*16377 

760 


116562 

936 


*16563 

927 


*16564 

918 


116565 

917 

923 

116566 

913 


*16567 

989 


*16570 

904 


116571 

897 


*16572 

682 


*16573 

873 


*16574 

869 


116575 

857 


116576 

854 


*16577 

850 


*16770 

1097 


*16771 

1090 


*16772 

1069 

1895 

*16773 

1086 


*16774 

1024 

1056 

*16775 

1022 


*16776 

992 


116777 

985 

1083 

*17162 

1209 


*17163 

1201 


*17164 

1199 

1206 

*17165 

1164 


*17166 

1162 


117167 

1158 

1163 

*17170 

1150 


*17171 

1144 


*17172 

1142 


*17173 

1131 

1159 

117174 

1128 

1138 

117175 

1126 

1136 

117176 

1120 


*17177 

1117 

1121 

*17356 

1347 


117357 

1342 


117368 

1339 


*17361 

1335 


*17362 

1322 


*17363 

1321 


*17364 

1320 


*17365 

1319 


117366 

1314 


*17367 

1306 


*17370 

1293 


117371 

1290 





100 



► 


» • 


*1?37 

11737 

11737 

11737 

1737 

1737 

1755 

1714 

1714 

*1754 

*1754 

11754 

11754 

.1754 

11756 
*1757 
*1757 
*17572 

11757 
11757 
*1757 
11757 
*1757 


1382 

1242 


1441 1583 


1434 


V3 
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/PARAMETERS FOR RTS«8 TASKS (VERSION PAL8-V4D 04/11/75 PAGE 1 


1 

2 

3 

A 

5 

6 
7 
6 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 




/PARAMETERS FOR RTS-S TASKS (VERSION 2) 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT (C) 1474,1975 BY DIGITAL EOLXPMENT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
/CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT, 

/ 

/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHEO TO THE PURCHASER 
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIEO 
/(WITH INCLUSION OF OIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL, 

/ 

/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
/DIGITAL, 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 
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/PARAMETERS FOR RTS-8 TASKS 


(VERSION PAL8-V9D 09/11/75 PAGE 2 


45 

48 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 


/RT88 V2 EXEC PARAMETERS • EDITED BY USE? 

0001 PDP8E-1 
0000 PDP12-0 

0001 EAEii 

0001 pwrfal-i 

0030 HGHFLD-30 
0023 NTASKS-23 
0001 CHECKPT41 
0000 PARTN3-0 

/(THE N PARTITIONS ARE NIIMBEREO FROM 0 TO N-l) 
/COMMON TASK NUMBERS • EDITED BY USER 

/IT IS ADVISABLE TO DEFINE ALL TASKS HERi:, NAMES GIVEN BELOW 
/ARE USED BY SOME SYSTEM TASKS ANO SHOULD BE DELETED FROM THIS 
/LIST IF THE CORRESPONDING TASK IS NOT IIICLUDEO IN THE SYSTEM 


63 

0001 

CLOCK-1 

64 

0002 

PWRF-2 

65 

0003 

TTY*3 

66 

0004 

LPT-4 

67 

0005 

MCRa5 

68 

0006 

LTA«6 

69 

0007 

OTA»7 

70 

0021 

SWAPPER-21 

71 

0010 

RK6-10 

72 

0011 

RP06-11 

73 

0012 

0P32-12 

74 

0013 

CSA-13 

75 

0014 

CSAF-14 

76 

0016 

ICS-16 

77 

0017 

RXSA-17 

78 

0023 

OSS-NTASRS 

79 

0010 

OSSF920 

80 



81 


/SOFTWARE PARAMETERS • 

82 



S3 


IPDEF OSS 

84 

0002 

0SFL08-2 

85 

0030 

OSKBOV-30 

86 

0031 

0STTDV-31 

87 

0010 

OSSYSD-RKS 

88 

0004 

OSFILL-4 

89 


> 

90 


IFDEF MCR 

91 

0001 

MCRSYS-1 

92 


» 

93 


IFOEF CLOCK 

94 

0000 

CLKTYP-0 

95 

0020 

CLKOLN-20 

96 


decimal 

97 

0170 

HERTZ-120 

98 

0074 

SHERTZ-60 

99 


OCTAL 
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/PARAMETERS FOR RTS-8 TASKS 


(VERSION PAL8-V9D 09/11/75 PAGE 2«1 


101 

102 

103 

104 


IFOEF SWAPPER < 


0010 SYS-RK6 
0000 SUNIT-0 


104 



/PARAMETERS FOR RTS-S TASKS 


105 

106 

107 

108 
10 * 
110 
111 
HI 
111 

114 

115 

116 
117 
HI 
11 * 
120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 


(VERSION PALS-V4D 03/11/7! PAGE 3 
/EQUIVALENCES! 


7344 AC7776* 
7346 AC777S- 
7330 AC400B- 
7350 AC3777- 
7332 AC2000* 
7316 AC0002* 


CLL STA RAL 
CLL STA RTL 
CLA STL RAR 
CLL STA RAR 
CLA STL RTR 
CLA STL RTL 


/MONITOR CALL VALUES! 


4021 

5424 

4425 


0000 

0001 

0002 

0003 

0004 

0005 

0006 

0007 

0010 

0011 

0012 

4000 


CAL* JMS 
P0ST08* JMP I 
MAlTMf JMS I 


SEND* 0 
RECEXVR 1 
WAITE* | 
RUN* 3 
SUSPNO* 4 
POST* 3 
SKPINS* 6 
DERAIL* 7 
BLKARGc 10 
8EN0W* 11 
UNBARG- 12 
FREE* 4000 


20 

24 

23 


/CALL THE EXECUTIVE 
/OISNXSS AN INTCRRUPT 
/WAIT FOR MULTIPLE EVENTS 


/NOTE! ■**• MEANS CRITICAL VALUE MAY NOT 

/BE CHANGEO WITHOUT HOOJFYXNO SYSTEM CODEJ1 

/SEND MESSASI 

/RECEIVE MESSAGE 

/WAIT FOR EVENT FLAG 

/CONTINUE TASK EXECUTION 

/SUSPEND TASK EXECUTION 

/POST AN EVENT FLAG 

/INSERT CODE INTO INTERRUPT SKIP CHAIN 
/INITIATE END-ACTION 

/BLOCK TASK FOR REASON SPECIFIED IN ARC 
/SEND MESSAGE AND WAIT 

/UNBLOCK TASK FOR REASON SPECIFIED IN ARG 
/--FREE PARTITION 


IFOEF UOC 


/TASK STATUS FLAGS! 


«AO-0!DO*l|0I*2!GC*3|EC«4|RC*5 
OC*4fECT*7fCS*10!OCT*ll!A!*12» 


4000 

NONRWT* 

4000 

/--NONRESIDENT TASK WAIT 

2000 

EFWT* 

2000 

/EVENT FLAG WAIT 

1000 

RUNWT* 

1000 

/SCHEDULE WAIT 

0400 

SNPWT* 

0400 

/**3WAPPER WAIT 

0200 

EORHWT* 

0200 

/EVENT FLAG OR MESSAGE WAIT 

0100 

USERWTt 

0100 

/USER SPECIFIED WAIT 

0040 

ENASWT- 

0040 

/enable WAIT 

0020 

MSGWT* 

0020 

/MESSAGE WAIT 

0010 

NETWT* 

0010 

/NETWORK WAIT (RESERVED FOR 

0001 

DNEWT- 

0001 

/--DOES NOT EXIST WAIT 


/PARAMETERS FOR RTS-8 TASKS 


(VERSION PALS-V*D 09/11/73 PAGE 4 


150 

151 

152 

153 

154 

155 

156 

157 
138 
13* 
160 
161 
162 

163 

164 

163 
166 
167 

164 


/SYSTEM LOCATIONS I 

1176 MSGTBL- 1200-2 

1244 TSTABL* NTASKS*2 ll 2 + MSGTBL-4 

1367 TFTABL- NTA3K3-2*4-TSTABL-i 


1414 

1420 

0043 


0035 

0036 

0037 

0040 

0041 


IFDEF SWAPPER < 

RESTBL* TFTABL-NTA3KS-2 

PARTBL» NTASK3-3WAPPER“2*RESTBL*3A7774 

COMMAND-43 


/TASK MEiSAGE TABLE 
/TASK STtTE TABLE • HOLDS 
/TASK LHK,UM,DF # IF,PC,AC,MQ 
/TASK FL *GS TABLE * HOLDS 
/TASK STATUS FLAGS 


'RESIDENCY TABLE 
'PARTITION TABLE 
'SWAPPER COMMAND BUFFER 


TSWFLG* 33 
TOOL- 36 
TODH- 
DATE- 


37 

40 


MCREF- 41 


/TASK SW INHIBIT FLAG 
/LOW ORDER TIME OF DAY 
/HIGH ORDER TIME OF DAY 
/DATE IN 0S8 FORMAT 
/MCR START EVENT FLAG 


IN FIELD 
CN FIELD 
tN FIELD 
tN FIELD 
!N FIELD 


1 <*6 



/PARAMETERS FOR RTS-B TASKS (VERSION PALS-VtO M/ll/75 PACE 5 


1M 

170 

171 

172 

173 

174 

175 
17b 
177 
17S 

179 

180 
181 
182 
Its 

184 

185 

186 
187 


/TASK TABLE SETUP • "TASK", "CUR*»"XNXWT", AND "START" 
/MUST BE DEFINED BY TASK! 



1244 

*TASK"2*MSGTBL 

01244 

•000 

ZBLOCK 2 

1360 

*T ASK*4aTST ABL 

013b0 

•000 

CURX10+CUR 

• 1361 

4600 

START 

01362 

• 000 

0 


1412 

•TASK+TFTABL 

01412 

• •00 

INIWT 


1236 

tTASK2”2+M8GTBL 

01136 

0000 

ZBLOCK 2 

1344 

*TASK2*4♦TSTABL 

01344 

0000 

CUR2X1B+CUR2 

01345 

6200 

START! 

0134b 

0000 

0 


1407 

•TASK29TPTABL 

01407 

•000 

INIWT2 


/MESSABE BUFFER ’.INITIALLY CLEAR 
/INITIAL FLAGS 
/INITIAL AC 0 

/MESSAGE BUFFER INITIALLY CLEAR 
/INITIAL PLAC82 
/INITIAL AC • 
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188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 
21b 

217 

218 

219 

220 
221 
222 

223 

224 

225 
22b 

227 

228 

229 

230 

231 


08/8 SUPPORT TASK FOR RTS-8 


/COPYRIGHT (C) 1974,1975 BY DIGITAL EQUIPMENT CORPORATION 


/THE INFORMATION IN THIS DOCUMENT IS SUBJICT TO CHANGE W 1™0UT NOTICE 
/AND SHOULD NOT BE C0N8TRUE0 AS A COMMITMINT BY DIGITAL EQUIPMENT 
/CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DCCUMENT, 

/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
/UNDER A LICENSE FOR USE ON A SINGLE COMPlTER SYSTEM AND CAN BE COPIED 
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NCTICE) ONLY F ° R 0 US * ®U CH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL, 

/OIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 

/digital, 


108 



' 08/8 
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FOR RT8«8 

PAL8-V9D 09/11/75 
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232 


•000 

CUR* 

0 

/MUST LOAD INTO FIELD 0 • 

CUR REFERENCED 

FROM 

088F ALSO 

233 




IPDEP 

088 « 




234 









235 


0023 

TA0K* 

088 





236 


0000 

XNXWT* 

0 





237 









236 



/CHANBES SINCE 

SHARK'S 2DXTI (S.R.) 




239 



/ 

ADDED LINCTAPE AND FLOPPY SUPPORT 




240 



/ 

8ET 0XT 

2 OF LOC 07777 XN 08/8 




241 









242 


0030 

O88F0* 

H6HFL0 





243 


0000 

088F1* 

H0HFLO»10 




244 


0030 

OSSM»2*OSFID8"OSPIDS-I«106H6HPID 




245 


0020 

O8SF3*3*OSFlOS"OSFLD8*3*i0*HGHFW0 




246 


0030 

OS8P4M*O3FLD3"O3PIOS«4»10*H6MFID 




247 


0010 

O8SF5*5XOSFlDS»OSFLO3*B*10*M0HFLD 




248 


0030 

OSSF6*6XO0FLOS*Q0FLO0*6*10*HOHFLD 




249 


0000 

O88F7*7XO0FLO8*O0PLO8«*T*10*H0HFLO 




250 









251 


7760 

O88DC09 

7760 

/ADDRESS OF 08/8 OC0 TABLE 

IN field 1 



252 


7647 

088MN0* 

7647 

/ADDRESS OF 00/8 RESIDENT 

handler table 

IN FIELD 1 

253 


7746 

J30XT8* 

7746 

/ 08/0 JOB STATUS BITS IN 

MELD 0 



254 









255 


7671 

O8K0HL* 

7671 

/LOCATION XN FXELO 1 WHICH 

1 READS THE KEYBOARD 

MONITOR 

256 


7713 

08U8RL* 

7723 

/LOCATION XN FXELO 1 WHICH 

i READS XN THE 

USR 


257 


0271 

OSCOLO* 

271 

/LOCATION XN U8R XN FIELD 

1 WHICH READS 

XN CD 


258 


0100 

T88L0C* 

200 

/LOCATION IN RTSM 




259 









260 


6204 

CXNT* 

6204 





261 


6274 

8UF* 

6274 





262 









263 


6301 

KSFX* 

O0KBOV*10*6001 




264 


6302 

KCCX* 

08KBDV* 

10*6002 




265 


6304 

KRSX* 

OSK0DV*10*6004 




266 


6306 

KRBX* 

OSK0DV” 

10*6006 




267 


6311 

T8FX* 

OSTTDV* 

10*6001 




268 


6312 

TCFXi 

OSTTOV*10*6002 




269 


6315 

TSKX* 

OSTTDV*10*6005 




270 


6316 

TL8X" 

O8TTOV*10*6006 




271 









272 


6661 

PSKFl 

6661 

/LINE PRINTER IOT« 

1 



273 


6665 

PSIEV 

6665 





274 


6666 

P8L8* 

6666 





275 


6667 

PCIE* 

6667 





276 









277 


0000 


FIELD 

CURX10 ‘ 




278 


0166 


*166 





279 

00166 

0000 

AC, 

0 

/OS/8 AC 




260 

00167 

0000 

PC, 

0 

/08/8 PC 




281 

08170 

0000 

link, 

0 





282 

00171 

0000 

UCOF, 

0 





263 

00172 

7402 


HLT 

/CDF TO MAPPED 0S/< OF 



264 

00173 

5571 


JMP I 

UCDF 




285 

00174 

0000 

UCIF, 

0 





286 

00175 

7402 


HLT 

/CDF TO MAPPED 08/1 IF 




109 


/ 03/8 SUPPORT TASK FOR RT8«0 


PALS-V9D 09/11/75 FACE 7«1 


267 00176 5574 JMP X UCXF 

288 00177 0000 UIF, 0 


110 



/ 03/8 SUPPORT TASK FOR RTB.B PAL8-V9D 09/11/73 PAGE • 

269 /INITIALIZATION CODE • OVERWRITTEN BY RING BUFFERS 


291 


4600 


IFDIF 

0S8F 

<*4600> 

292 




IPNDEF 

088F 

<•62006 

293 







294 

04600 

4020 

START, 

CAL 



295 

04601 

0006 


SKPINS 



296 

04602 

5272 


TTINT 


/LINK IN OB/B TELETYPE 

297 




IFZERO 

PDPBE 

< 

296 




CAL 



299 




SKPINS 



300 




KBINT 



301 




» 



302 







303 


4600 

OHBASE* 

START 



304 


0020 

OWLEN* 

20 



305 







306 


4620 

IRBASE* 

0WBA8E+0WLEN 


307 


0010 

IRLEN* 

10 



306 


4630 

IREND« 

IRBASE+IRLEN 


309 

310 

04603 

6233 


COF CIF 

OS8F0 

/OS/8 INITIALIZA1ION COOE LOADS 

311 

04604 

4607 


JMS I 

OSINIT 

/INTO OS/B FAKE MELD 0 

312 

04605 

5606 


JMP I 

.♦1 


313 

04606 

5125 


8TKBMN 


/GO LOAD THE OS/C KEYBOARO MONITOR 

314 

04607 

4000 

OSINIT, 

INITOS 



315 

316 




ifnzro : 

IRBA8EIIRLEN <IRBNDY,: a ERROR^p 

317 




IFNZRO 

owbasesowlen «owbnoy, 4A error^,.> 

318 

04610 

0000 


IFNZRO 

•■IRENOB4000 «ZBLOCK ]RENO*,» 

319 







320 



/ TSS/8 

INTERRUPT HANDLER 

321 







322 

04630 

3166 

TSINT, 

OCA 

AC 


323 

04631 

7010 


RAR 



324 

04632 

3170 


DCA 

LINK 


325 

04633 

7240 


STA 



326 

04634 

1000 


TAD 

0 


327 

04635 

3167 


DCA 

PC 

/SAVE PC , AC, LINK FROM INTERRUPT 

328 

04636 

6204 


CINT 


/CLEAR USER INTERRUPT FLAG 

329 

04637 

6001 


ION 


/RESTORE INTERRUPTS 

330 

04640 

4254 


JMS 

EXECUT 

/EXECUTE ONE IOT 

331 

04641 

1170 

GOBACK, 

TAD 

LINK 

/GENERAL OSS STARTUP 

332 

04642 

7104 


CLL RAL 



333 

04643 

7201 


CLA IAC 



334 

04644 

1175 


TAO 

UCIF*1 


335 

04645 

3247 


OCA 

• *2 


336 

04646 

4171 


JMS 

UCDF 


337 

04647 

7402 

OP, 

hlt 



338 

04650 

1166 


TAD 

AC 


339 

04651 

6274 


SUF 



340 

04652 

5567 


JMP I 

PC 

/GO TO OS/8 IN USER MODE 

341 







342 

04653 

0000 

PT, 

0 




i 




in 



OS/8 

SUPPORT 

TASK 

FOR RTS. 

8 

343 

344 

345 

346 

04654 

0000 

/EXECUTE 

/called 

EXECUT, 

A TRAPP 
FROM TRA 

0 

347 

04655 

7402 

UCIFX, 

HLT 

348 

04656 

1567 


TAD I 

349 

04657 

7112 


CLL RTR 

350 

04660 

7012 


RTR 

351 

04661 

1377 


TAO 

352 

04662 

7640 


SZA CLA 

353 

04663 

5272 


JMP 

354 

04664 

7006 


RTL 

355 

04665 

7006 


RTL 

356 

04666 

1376 


TAO 

357 

04667 

3172 


DCA 

358 

04670 

2167 

XNOP, 

ISZ 

359 

04671 

5654 

XERET, 

JMP I 

360 

361 

04672 

7332 

NCDF01, 

AC2000 

362 

04673 

1567 


TAD 1 

363 

04674 

7420 


SNL 

364 

04675 

5775 


JMP I 

365 

04676 

1374 


TAD 

366 

04677 

7420 


SNL 

367 

04700 

5325 


JMP 

368 

04701 

0373 


AND 

369 

04702 

1372 


TAO 

370 

04703 

7650 


SNA CLA 

371 

04704 

5771 


JMP I 

372 

04705 

1370 


TAO 

373 

04706 

3253 


OCA 

374 

04707 

1567 


TAD I 

375 

04710 

3247 


OCA 

376 

04711 

6201 


CDF 0 

377 

04712 

2253 

SROPLP, 

ISZ 

378 

04713 

1653 


TAD I 

379 

04714 

2253 


ISZ 

380 

04715 

7450 


SNA 

381 

04716 

5767 


JMP I 

382 

04717 

1247 


TAD 

383 

04720 

7640 


SZA CLA 

384 

04721 

5312 


JMP 

385 

04722 

1653 


TAD I 

386 

04723 

3253 


OCA 

387 

04724 

5653 


JMP I 


PALB.V9D 09/11/75 PAGE 9 


/COF TO USERS INSTRUCTION FIELD 


(•1310 

NCOF01 


/CHECK FOR CDF 0 )R CDF 10 

/SINCE THEY ARE TIE HOST COMMON THINGS 


/LINK HAS COMPLEMENT OF FIELO BIT 


/•• DEPENDS ON FACT THAT FIELDS 

/*• are mapped in reverse order 


(COF 0S6F1 
UC0F*1 

PC 

EXECUT /LEAVE EXECUT WITH PC BUMPED 


PC /GET TRAP INSTRUCTION 

/IF ITS NOT IOT OU OPR* THE PREVIOUS 
(ILLIOT /INST WAS SKP HLT • ERROR 
(7000 

/TEST IOT OR OPR 
MBHALT /OPR 
(709 

(.200 /CHECK FOR COF OR CIF (OR BOTH) 

(DFSTUF /YES • SPECIAL ROUTINES FOR THESE 
(I0TLST.1 
PT 
PC 
OP 

PT 
PT 
PT 


/SEARCH LEGAL OPCODE LIST 


(XNOP 

OP 

3R0PLP 

PT 

PT 

PT 


/UNDEFINED lOT'S mRE NOP*S 


/GO PROCESS OPCODi: 


112 



/ OS/B SUPPORT TASK FOR RT8»8 
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388 

04725 

0366 

mbhalt, 

AND 


(407 


389 

04726 

1365 


TAO 


(•404 

/OSR ONLY LEGAL OPR 

390 

04727 

7640 


SZA 

CLA 



391 

04730 

5775 


JMP 

I 

(IllIOT 


392 

04731 

7614 


CIA 

OSR 

SKP 


393 

04732 

1177 

XRIF, 

TAD 


UIF 


394 

04733 

3253 

XOR t 

OCA 


PT 

/GENERAL OR NTH AC 

395 

04734 

1166 


TAO 


AC 


396 

04735 

7040 


CMA 




397 

04736 

0253 


AND 


PT 


398 

04737 

1166 


TAD 


AC 


399 

04740 

3166 

XACSTO, 

OCA 


AC 


400 

04741 

5270 


JMP 


XNOP 


401 








402 

04742 

1172 

XROF, 

TAD 


UCDF+1 


403 

04743 

7041 


CIA 




404 

04744 

1364 


TAO 


(COF OS8F0 /CALCU1ATE VIRTUAL 

403 

04745 

5333 


JMP 


XOR 


406 

04764 

6231 






407 

04765 

7374 






408 

04766 

0407 






409 

04767 

4670 






410 

04770 

6047 






411 

04771 

5400 






412 

04772 

7600 






413 

04773 

0704 






414 

04774 

7000 






415 

04775 

5063 






416 

04776 

6221 






417 

04777 

6470 






418 


5000 


PAGE 




113 


/ OS/8 

SUPPORT 

' TASK 

FOR RTS 

• 6 


PAL8-V90 09/11/75 PAGE 

11 

419 



/KEYBOARD HANDLER 



420 









421 

05000 

6002 

XK3F, 

IOF 





422 

05001 

1262 


TAO 


IRCNT 



423 

05002 

7650 


SNA 

CLA 


/INPUT BUFFER E1PTYT 


424 

05003 

5777 


JMP 

I 

(XKSFwT 

/YES • WAIT 


425 

05004 

6001 


ION 





426 

05005 

2167 

XSKP, 

ISZ 


PC 



427 

05006 

5776 


JMP 

I 

(XNOP 

/SKIP ANO RETURN 


428 









429 

05007 

1660 

XKRB * 

TAD 

I 

IRGET 

/GET SOMETHING JUT OF 

THE 1 

430 

05010 

316b 

XKCCi 

OCA 


AC 

/INTO THE ACCUMJLATOR 


431 

0501 1 

1262 


TAD 


IRCNT 



432 

05012 

7650 


SNA 

CLA 


/DON'T EMPTY FR5M AN EMPTY 

433 

05013 

5776 


JMP 

I 

(XNOP 



434 

05014 

2262 


ISZ 


IRCNT 



435 

05015 

7000 


NOP 





436 

05016 

1260 


TAD 


IRGET 



437 

05017 

7001 


I AC 





438 

05020 

0375 


ANO 


(-IRLEN 

*1 


439 

05021 

3260 


DC A 


IRGET 



440 

05022 

5776 


JMP 

I 

(XNOP 



441 









442 

05023 

1660 

XKR3# 

TAO 

I 

IRGET 



443 

05024 

5774 


JMp 

I 

(XOR 

/OR CHAR INTO A: 



11 



/ OS/8 

444 

445 
44b 

447 

448 
444 

450 

451 

452 

453 

454 

455 
458 

457 

458 
454 

480 

481 

482 

483 

484 

485 

486 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 


SUPPORT 

TASK 

FOR RTS-6 

PA 



KSINT, XFZERO 

P0P8E 



BIB 




KSFX 




JMP I 

KBXNT 



CDF CXP 

0 

05025 

6306 

KRBX 


05026 

3661 

DC A X 

IRPUT 

05027 

1661 

TAD I 

IRPUT 

05030 

S373 

ANO 

(177 

05031 

1372 

TAD 

(•3 

05032 

7450 

SNA 


05033 

5240 

JMP 

CTLCHR 

05034 

1371 

TAD 

(3-17 

05035 

0370 

AND 

(7771 

05036 

7640 

SZA CLA 


05037 

5243 

JMP 

NOCTRC 

05040 

1261 

CTLCHR, TAD 

IRPUT 

05041 

3260 

OCA 

IRGET 

05042 

3262 

OCA 

IRCNT 

05043 

1261 

NOCTRC, TAO 

IRPUT 

05044 

7001 

XAC 


05045 

0375 

ANO 

(-XRLEN. 

05046 

3261 

OCA 

IRPUT 

05047 

1262 

TAO 

IRCNT 

05050 

7141 

CIA CLL 


05051 

0375 

AND 

(-IRLEN. 

05052 

7040 

CMA 


05053 

3262 

OCA 

IRCNT 

05054 

7430 

SZL 


05055 

1367 

TAO 

(KSPEP 

05056 

5424 

POSTOS 


05057 

0001 

KSFEF, 1 


05060 

4620 

IRGET, IRBASE 


05061 

4620 

IRPUT, IRBASE 


05062 

0000 

IRCNT, B 



PAL8-V90 04/11/5 PAGE/ 1* 

4 [ 

/LINKAGE INTO I KIP CHAIN 


/IP *C,*0,*Q OF *1 ^YPED, 


/BUMP CHAR COUNT MOO XRLEN 


/OTHERWISE JUST DISMISS 


/ OS/8 SUPPORT TASK FOR RTS-8 

481 /ILLEGAL IOT HANDLER 

482 


483 

05063 

7200 

illiot, 

CLA 


484 

05064 

6201 


CDF 0 


485 

05065 

1366 


TAO 

(ILIOMS 

486 

05066 

3170 


DC A 

LINK 

487 

05067 

1570 

ILIOLP, 

TAO I 

LINK 

488 

05070 

7510 


SPA 


489 

05071 

5275 


JMP 

PRNTPC 

490 

05072 

4765 


JMS I 

(XTLSUB 

491 

05073 

2170 


IS2 

LINK 

492 

05074 

5267 


JMP 

ILIOLP 

493 

05075 

1177 

PRNTPC, 

TAO 

UIF 

494 

05076 

7112 


CLL RTR 


495 

05077 

7010 


RAR 


496 

05100 

4765 


JMS I 

(XTLSUB 

497 

05101 

1364 


TAD 

(-4 

498 

05102 

3170 


OCA 

LINK 

499 

05103 

1167 


TAD 

PC 

500 

05104 

7106 

PCPTLP, 

CLL RTL 


501 

05105 

7009 


RAL 

UCIF 

502 

05106 

3174 


OCA 

503 

05107 

1174 


TAO 

UCIF 

504 

05110 

7004 


ral 

(7 

505 

05111 

0363 


AND 

506 

05112 

1362 


TAD 

(260 

507 

05113 

4765 


JMS I 

(XTLSUB 

508 

05114 

1174 


TAD 

UCIF 

509 

05115 

2170 


ISZ 

LINK 

510 

05116 

53B4 


JMP 

PCPTLP 

511 

05117 

7600 

17600, 

7 600 


512 

05120 

1167 


TAO 

PC 

513 

05121 

7040 


CMA 

X7600 

514 

05122 

0317 


ANO 

515 

05123 

7650 


SNA CLA 


516 

05124 

1361 


TAD 

(5 


PAL8-V40 04/11/7!. PAGE 13 
PRINT MESSAGE ANT RETURN TO KEYBOARD MONITOR 
/CLEAR AC SINCE XT IS RANDOM 


/PRINT ERROR ME!SA0E ON OS/8 TTY 
/LIST ENOS WITH 4800 


/4600 IN AC HER! 
/PRINT PIELO 


/PRINT THE PC 18 OCTAL 


/4 DIGITS WORTH 
/CLEAR GARBAGE FROM AC 


/IF THE ILLEGAL IOT WAS IN THE RESIDENT, 

/DON'T SAVE CORE ON RELOAD 

/SINCE SYS! IS PROBABLY WRITE PROTECTED, 


517 

518 


116 


/** FALL INTO NEXT PAGE ** 



/ OS/8 SUPPORT TASK FOR RTS»8 


PAL8-V9D 09/11/19 RAGE 14 


919 



/START KEY0OARO 

MONITOR AT 07600 

520 





521 

05125 

1317 

STKBMN, TAD 

X7600 

522 

05126 

3167 

DCA 

PC 

523 

05187 

3166 

OCA 

AC /AND AC CLEAR 

524 

05130 

1360 

TAD 

(CDF OS8F0 

525 

05131 

3172 

DCA 

UCDP+1 

526 

05132 

3177 

HNORET, OCA 

UXF 

527 

05133 

1178 

TAD 

UCDFM 

528 

05134 

3175 

DCA 

UCIFM 

529 

05135 

1175 

GOBCKX, TAD 

UCXFM 

530 

05136 

6801 

CDF 0 


531 

05137 

3757 

DCA X 

(UCIFX 

538 

05140 

5756 

JHP I 

(GOBACK /START INTERPRETING 

533 

05156 

4641 



534 

05157 

4655 



535 

05160 

6231 



536 

05161 

0009 



537 

05168 

0260 



538 

05163 

0007 



539 

05164 

7774 



540 

05165 

5245 



541 

05166 

6153 



542 

05167 

5057 



543 

05170 

777 1 



544 

05171 

7764 



545 

05172 

7775 



546 

05173 

0177 



547 

05174 

4733 



548 

05175 

7767 



549 

05176 

4670 



550 

05177 

5207 



551 


5200 

PAGE 



/ OS/8 

SUPPORT 

TASK 

FOR RTS 

• 8 

PAL8-V9D 09/11/7!. RAGE 15 

552 



/TELETYPE OUTPUT 

hanoler 

553 






/INHIBIT INTERRlPTB FOR A WHILE 

554 

05200 

6202 

XTSF, 

CIF 0 


555 

05201 

1327 


TAO 

OWCNT 


556 

05202 

1377 


TAD 

(OWLEN 


557 

05203 

7640 


SZA CLA 


/BUFFER FULL! 

558 

05204 

5776 


JMP I 

(X8KP 

/NO « SKIP RETU'N 

559 

05205 

1375 


TAD 

CT8FEF 


560 

05206 

7410 


SKP 



561 

05207 

1374 

XKSFWT t 

TAO 

(KSFEF 


562 

05210 

3227 


DCA 

EF 


563 

05211 

7201 


CLA IAC 



564 

05212 

3627 


OCA X 

EF 


565 

05213 

6001 


ION 



566 

05214 

1167 


TAO 

PC 


567 

05215 

2167 


XSZ 

PC 

/CHECK IF NEXT LOCATION IS A "JMP ,-i" 

568 

05216 

0373 


AND 

(177 

569 

05217 

1372 


TAD 

(5800 


570 

05220 

7041 


CIA 



571 

05221 

4174 


JMS 

UCIF 


572 

05222 

1567 


TAD I 

PC 

/IF IT IS WE SHGULD HANG 

573 

05223 

7640 


SZA CLA 


/OTHERWISE DO A NON.SKIP RETURN 

574 

05224 

5771 


JMP I 

(XERET 


575 

05225 

4020 


CAL 



576 

05226 

0002 


waits 



577 

05227 

0000 

EF, 

0 



578 

05230 

5770 


JMP 1 

(XNOP 

/DO A SKIP RETURN AFTER WAITING 

579 


4670 

XTCF« 

XNOP 


/?? 

580 







581 

05231 

1166 

XTLS, 

TAO 

AC 


582 

05232 

4245 


JMS 

XTLSUB 

/CALL SUBROUTINI USEO TO PRINT ERRORS 

583 




XFNZRO 

08PXLL 

< 

584 

05233 

1166 


TAD 

AC 


585 

05234 

0373 


ANO 

(177 


586 

05235 

1367 


TAD 

(-12 


587 

05236 

7640 


SZA CLA 



588 

05237 

5770 


JMP I 

(XNOP 

/ONLY FILL ON LINE FEEDS 

589 

05240 

4245 


JMS 

XTLSUB 


590 

05241 

4245 


JMS 

XTLSUB 


591 

05242 

4245 


JMS 

XTLSUB 

/4 FILL CHARS SHOULD SUFFICE 

592 

05243 

4245 


JMS 

XTLSUB 

593 




> 



594 

05244 

5770 


JMP X 

(XNOP 

/KEEP ON TRUCKING 





/ OS/8 SUPPORT TASK FOR RTS-8 


PAL8-V9D 09/11/19 RACE IS 


595 

05245 

0000 XTLSUB, 

0 



/ROUTINE TO 0U1PUT CHAR IN AC 

596 

05246 

3171 

OCA 


UCDF 

/SAVE CHAR 

597 

05247 

1327 

TAD 


OWCNT 

598 

05250 

1377 

TAD 


(ONICN 


599 

05251 

7650 

SNA 

CLA 


/WAIT FOR BUFFIR TO HAVE SPACE 

600 

05252 

5247 

JHP 


• •3 

601 

05253 

1171 

TAO 


UCDF 


602 

05254 

3726 

OCA 

X 

OWPuT 


603 

05255 

1326 

TAD 


OWPUT 

/STORE CHAR IN BUFFER ANO BUMP POINTER 

604 

05256 

7001 

X AC 




605 

05257 

0366 

ANO 


(•OWLEN 

-1 

606 

05260 

3326 

DCA 


OWPUT 

; 

607 

05261 

6202 

CIF 

0 


/DELICATE COOE AHEAO 

608 

05262 

7340 

STA 

CLL 


609 

05263 

1327 

TAD 


OWCNT 


610 

05264 

3327 

DCA 


OWCNT 

/BUMP BUFFER COUNT 

611 

05265 

1171 

TAO 


UCDF 


612 

05266 

7420 

8NL 




613 

05267 

6316 

TL8X 


/PRINT IF FIRST CHAR IN BUFFER 

614 

05270 

7200 

CLA 



615 

05271 

5645 

JHP 

I 

XTLSUB 
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/ OS/8 

SUPPORT 

TASK 

FOR RTS 

■ 8 

PAL8-V90 09/11/7*. PACE 17 

616 



/TELETYPE OUTPUT INTERRUPT ROUTINE 

617 







618 

05272 

0000 

TTINT, 

ZBLOCK 

2 


619 




XFZERO 

P0P8E 

«TSFX» 

620 

05274 

6315 


IFNZRO 

PDPtE 

«T8KX* 

621 

05275 

5672 


JHP I 

TTINT 


622 

05276 

6203 


COF CIF 

0 


623 




IFNZRO 

P0P8E 

« 

624 

05277 

6311 


TSFX 


/KEYBOARD OR PRINTER? 

625 

05300 

5765 


JHP I 

(KBINT 

/KEYBOARD 

626 




» 



627 

05301 

6312 


TCFX 


/CLEAR PRINTER t LAC 

628 

05302 

1327 


TAD 

OWCNT 


629 

05303 

7700 


SMA CLA 


/IGNORE UNSOLICITED INTERRUPTS 

630 

05304 

5424 


POSTDS 



631 

05305 

1325 


TAO 

OWCET 


632 

05306 

7001 


I AC 



633 

05307 

0366 


AND 

(•owlen 

• 1 

634 

05310 

3325 


DCA 

OWGET 


635 

05311 

2327 


ISZ 

OWCNT 


636 

05312 

7410 


SKP 



637 

05313 

5424 


POSTOS 


/BUFFER NOW EMPTY • LEAVE 

638 

05314 

1725 


TAD I 

OWCET 


639 

05315 

6316 


TLSX 


/PRINT NEXT CHAR FROM BUFFER 

640 

05316 

7240 


STA 



641 

05317 

1327 


TAD 

OWCNT 


642 

05320 

1377 


TAO 

(OWLEN 


643 

05321 

7650 


SNA CLA 


/IF BUFFER JUST BECAME UNFULL, 

644 

05322 

1375 


TAD 

(TSFEF 

/SET EVENT FLAG 

645 

05323 

5424 


POSTDS 


/ELSE JUST DISMISS 

646 







647 

05324 

0000 

TSFEF, 

0 



648 

05325 

4600 

OwGET, 

0WBA3E 



649 

05326 

4600 

OWPUT, 

0WBA8E 



650 

05327 

0000 

OWCNT, 

0 
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/ OS/8 SUPPORT TASK FOR RTS-S 


PALS-VfO 0^/11/VS PACE 18 


651 

652 

653 

654 

655 

656 

657 
65B 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 
676 
679 
6B0 
681 
682 
683 

664 

665 

666 
667 
666 
669 

690 

691 

692 

693 

694 

695 

696 

697 
696 

699 

700 

701 

702 

703 

704 

705 


/LINE PRINTER OUTPUT ROUTINE • USES RTU6 LPT DRIVER 


05330 1166 XLLSf 

05331 3756 

05332 1356 

05333 1166 

05334 1373 

05335 1364 

05336 7100 

05337 1363 

05340 2357 

05341 7630 

05342 7610 

05343 5770 

05344 3756 

05345 4020 

05346 0011 

05347 0004 

05350 6101 

05351 1362 

05352 3)56 

05353 1361 

05354 3357 

05355 5770 


IFOEF 

TAO 

OCA X 

ISZ 

TAD 

ANO 

TAO 

CLL 

TAO 

ISZ 

SZL CLA 
SKP CLA 
JMP 1 
OCA X 
CAL 
SENDW 
LPT 

LPME3G 

TAD 

OCA 

TAO 

OCA 

JMP I 


LPT 

AC 

« 

LPBUF 

LPBUF 

AC 

(177 

(.15 

/STORE CHAR IN LPT MESSAGE BUFFER 

/CHECK TO SEE IF THE CHARACTER 

(3 

/IS A FORMS MOVEMENT CHARACTER 

LPBUFC 

/(I.E, LF,VT,OR FF) 

/OR IF THE MESSAGE BUFFER IS FULL 

(XNOP 

/NEITHER • RETURN TO OS/6 JOB 

LPBUF 

/ZERO IS THE BUFFER END CODE 

/MOVE THE SUFFER TO THE LINE PRINTER 


LPBUF /RE.INITIALIZE THE SUFFER PPOINTER 

(•LPTCNT 

LP0UFC /AND COUNTER 
(XNOP /AND CONTINUE 


05356 

05357 


05361 

05362 

05363 

05364 

05365 

05366 

05367 

05370 

05371 

05372 

05373 

05374 

05375 

05376 


LPBUF, 

LPTBUF 


LPBUFC, 

•LPTCNT 

» 



IFNOEF 

LPT 

xlls, 

ISZ 

SKP 

LPFST 


JMP 

PSKF 

.♦3 


JMP 

• •1 


TAO 

PSLS 

AC 


OCA 

LPFST 


JMP I 

(XNOP 

LPFST, 

.1 

» 



7734 

6106 

0003 

7763 

5025 

7757 

7766 

4670 

4671 
5200 
0177 
5057 
5324 
5005 


/OH, HON CRUDE 1 


/CLEAR FIRST.TI IE FLAG 
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/ OS/6 SUPPORT TASK FOR RTS-f PALS-VfD 09/11/7! PAGE 18.1 

706 05377 0020 

707 5400 PAGE 


* 
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/ 08/1 SUPPORT TASK F0* RTS-S 


70S 



/CODE TO 

1 HANDLE 

CDF'S ANO CXF'I 

719 

710 

•5400 

1567 

DFSTUF, 

TAD X 

PC 

, 

711 

05401 

3313 


OCA 

WO 


712 

05402 

7201 


CLA XAC 



713 

05403 

0313 


ANO 

WO 

/CHECK CDF 6XT 

714 

05404 

7650 


SNA CLA 



715 

05405 

5212 


JMP 

NOCDF 


716 

01406 

131) 


TAO 

WD 

, ; . •• ' 

717 

05407 

0377 


ANO 

(70 


718 

01410 

4776 


JMS X 

(0ETFLD 

/MAP TO COF TO REAL FIELD 

719 

05411 

3171 


OCA 

UCDFM 

/SAVE IN CDF SJBR 

720 







721 

05412 

73*6 

NOCDF, 

AC0002 



722 

05413 

0313 


AND 

NO 


723 

05414 

7650 


SNA CLA 


. y, j* ,U » •• .. .. 

724 

05415 

5775 


JMP 1 

(XNOP 

/WHEW 1 

725 

05416 

1313 


TAO 

WD 

/UNLUCKY US • A CXF 

726 

05417 

0377 


ANO 

(70 


727 

05420 

3350 


OCA 

IBR 

/SAVE IF BACKU'* 

726 

05421 

2167 


XSI 

PC 


729 

05422 

1350 


TAD 

IBR 


730 

05423 

7041 


CIA 



731 

05424 

1177 


TAD 

UIF 

/IF ITS A CIF f 0 CURRENT FIELD, 

732 

05425 

7650 


SNA CLA 


/EXIT IMMEDIATELY BYPASSING CXjCUT RETURN 

733 

05426 

5774 


JMP X 

(GOBACK 

/AND POSSIBLE SUBSEQUENT USELESS SIMULATION 

734 







735 

05427 

4174 

ciflp, 

JMS 

UCIF 


736 

05430 

1567 


TAO I 

PC 


737 

05431 

3313 


DCA 

WO 

/GET WORD TO INTERPRET 

738 

05432 

1313 


TAD 

WO 


739 

05433 

7710 


SPA CLA 



740 

05434 

5273 


JMP 

NONSTO 


741 

05435 

4243 


JMS 

GEPAOR 

/GET EFFECTIVE ADORISS 

742 

05436 

1313 


TAD 

WO 


743 

05437 

0317 


ANO 

T7000 

/ISOLATE OPCOOI 

744 

05440 

1373 


TAD 

(ANO I 

WT /FORM EQUIVALENT INSTRUCTION 

745 

05441 

3313 


DCA 

WD 


746 

05442 

5310 


JMP 

XINLIN 

/ANO EXECUTE I 1 IN LINE 
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/ OS/8 SUPPORT TASK FOR RTS»8 


PAL6-V9D 09/11/75 PACE 20 


747 



/SUBROUTINE TO COMPUTE E 

748 






749 

05443 

0000 

GEFADR, 

0 


750 

05444 

1313 


TAO 

WD 

751 

05445 

0372 


ANO 

(177 

752 

05446 

3347 


DCA 

WT 

753 

05447 

1313 


TAD 

WD 

754 

05450 

0371 


ANO 

(200 

755 

05451 

7041 


CIA 


756 

05452 

0167 


AND 

PC 

757 

05453 

1347 


TAO 

WT 

758 

05454 

3347 


OCA 

WT 

759 

05455 

4174 


JMS 

UCIF 

760 

05456 

1313 


TAD 

WD 

761 

05457 

0370 


ANO 

(400 

762 

05460 

7650 


SNA CLA 


763 

05461 

5643 


JMP I 

GEFADR 

764 

05462 

1347 


TAD 

WT 

765 

05463 

0367 


ANO 

(7770 

766 

05464 

1367 


TAO 

(7770 

767 

05465 

7650 


SNA CLA 


768 

05466 

2747 


ISZ I 

WT 

769 

05467 

1747 


TAD I 

WT 

770 

05470 

3347 


OCA 

WT 

771 

05471 

4171 


JMS 

UCDF 

772 

05472 

5643 


JMP I 

GEFADR 

773 






774 

05473 

1313 

NONSTD, 

TAO 

WD 

775 

05474 

7106 


CLL RTL 


776 

05475 

7420 


SNL 


777 

05476 

532« 


JMP 

JMPJ MS 

778 

05477 

7510 


SPA 


779 

05500 

5304 


JMP 

XOPR 

780 

05501 

7200 


CLA 


781 

05502 

4766 


JMS I 

(EXECUT 

782 

05503 

5227 


JMP 

CIFLP 

783 






784 

05504 

0365 

XOPR, 

ANO 

(6014 

785 

05505 

1364 


TAD 

(•6010 

786 

05506 

7650 


SNA CLA 


787 

05507 

5763 


JMP I 

(ILLIOT 

768 

05510 

1170 

XINLIN, 

, TAO 

LINK 

789 

05511 

7104 


CLL RAL 


790 

05512 

1166 


TAO 

AC 

791 

05513 

0000 

WD, 

0 


792 

05514 

7410 


SKP 


793 

05515 

2167 


ISZ 

PC 

794 

05516 

2167 


ISZ 

PC 

795 

05517 

7000 

T7000, 

NOP 


796 

0552M 

3166 


OCA 

AC 

797 

05521 

7010 


RAR 


798 

05522 

3170 


DCA 

LINK 

799 

05523 

5227 


JMP 

CIFLP 


/AOD PAGE BITS TO DISPLACEMENT 


/IF NO INDIRECT ADDRESS, 
/OPERAND FIELD • IF 


/TEST FOR AUTO«,<RS 


/IF INDIRECT ADDRESSING, 
/OPERAND FIELD »• OF 


/CHECK FOR JMP OR JMS 
/YES • NOT LONG NOW 

/SEPARATE THE IOTS FROM THE OPRS 

/WE CAN CALL EXICUT "RECURSIVELY" HERE SINCE 
/WE DON'T PLAN CN RETURNING FROM THIS LEVEL 

/7403 ROTATED LIFT 2 
/7402 ROTATEO LEFT 2 


/WATCH FOR SKIPS AND ISZ'S 


/JUST IN CASE 




/ 08/e SUPPORT TASK FOR RTS-8 


• 00 



/INTERPRET JMP 

801 





602 

05524 

7200 

JMPJMS, 

CLA 

S03 

05525 

4243 


JMS 

804 

05526 

1350 


TAD 

805 

05527 

4776 


JMS I 

806 

05530 

3175 


OCA 

607 

05531 

1350 


TAO 

606 

05532 

3177 


OCA 

609 

05533 

4174 


JMS 

810 

05534 

1313 


TAO 

611 

05535 

7006 


RTL 

612 

05536 

7710 


SPA CLA 

• 13 

05537 

5344 


JMP 

614 

05540 

7201 


CLA XAC 

615 

05541 

1167 


TAD 

616 

05542 

3747 


DCA I 

• 17 

05543 

7201 


CLA IAC 

816 

05544 

1347 

XJMP, 

TAO 

619 

05545 

3167 


DCA 

620 

05546 

5762 


JMP X 

621 





822 

05547 

0000 

WT, 

0 

623 

05550 

0000 

IBR, 

0 

824 

05562 

5135 



•25 

05563 

5063 



626 

05564 

1770 



627 

05565 

6014 



826 

05566 

4654 



629 

05567 

7770 



830 

05570 

0400 



631 

05571 

0200 



632 

05572 

0177 



633 

05573 

0747 



634 

05574 

4641 



835 

05575 

4670 



836 

05576 

5727 



837 

05577 

0070 



638 


5600 


PAGE 


PALI-V9D 09/H/75 PACE 21 


GEFADR /GET EFFECTIVE A0DRES3 
IBR 

CGETFID /QET TARCIT FXE.D 
UCXP+1 
IBR 
UXF 
UCXF 
WO 


XJMP 

PC 

WT 

WT 

PC 

CCOBCKX 


/CHECK FOR JMS 
/NO 


/SAVE RETURN ADDRESS 
/AND BUMP JUMP VOORESS 


/ OS/8 SUPPORT TASK FOR RTS-6 


PAL8-V90 09/11/75 PACE 22 


839 

840 

841 

842 


843 



/ 

TAO 

844 



/ 

6000 

845 



/ 

POINTER 

846 



/ 

RETURN : 

847 





848 

05600 

4174 

HCALL, 

JMS 

649 

05601 

2167 


ISZ 

650 

05602 

1567 


TAO I 

851 

05603 

3167 


OCA 

852 

05604 

1567 


TAO X 

853 

05605 

3167 


DCA 

854 




XFOEF 

855 

05606 

1172 


TAD 

856 

05607 

1377 


TAO 

857 

05610 

7650 


SNA CLA 

858 

0561 1 

1167 


TAD 

859 

05612 

1376 


TAD 

860 

05613 

7440 


8ZA 

861 

05614 

1375 


TAO 

862 

05615 

7440 


SZA 

863 

05616 

1374 


TAD 

664 

05617 

7640 


SZA CLA 

665 

05620 

5225 


JMP 

866 

05621 

1373 


TAD 

867 

05622 

4020 


CAL 

868 

05623 

0005 


POST 

869 

05624 

6201 


CDF CUR 

870 



NOPOST, 


871 




> 

872 

05625 

1166 


TAD 

873 

05626 

0372 


AND 

874 

05627 

7640 


SZA CLA 

875 

05630 

5771 


JMP 1 

876 

05631 

1370 


TAD 

877 

05632 

1166 


TAO 

878 

05633 

3166 


OCA 

879 

05634 

4171 


JMS 

660 

05635 

1567 


TAD I 

861 

05636 

0367 


AND 

682 

05637 

3322 


OCA 

663 

05640 

1567 


TAD I 

664 

05641 

0366 


AND 

885 

05642 

4327 


JMS 

666 

05643 

0366 


AND 

887 

05644 

1322 


TAO 

888 

05645 

3322 


DCA 


/ROUTINE TO HANOLE SPECIAL OS/8 HANDLER .'.OT 
/FORMAT OF SPECIAL ZOT USAGE IS AS FOLLOUSI 
(INTERNAL DEVICE COOE 

/DATA FIELD IS FIELD OF HANDLER ARGUMENTS 


/CO TO NEXT WO 

/PC CONTAINS HANfLER ENTRY PT ADDR 
/PC CONTAINS ARGl'MENT LIST ADDR 


UCXF 
PC 
PC 
PC 
PC 
PC 

0S6F 

UCDP+1 

(-CDP-OSSF1 

/IF WE ARE CALLING THE 
PC /KEYBOARO MONITOf, 

(-OBKBML 

(OSKBML-OSUSRL /USR, 

(OSUSRL-OSCDLO /OR COMM/NO DECODER INTO COREi 

/release the ossr interlock 

NOPOST /SINCE THE USR 0]RECTORY BUFFER IS CLEAR. 
(INTLOK 

/0S8F INTERLOCK IS A 3TAN0ARD EVENT FLAG 
/IN THE CURRENT FIELD 


AC 

(7760 


/CHECK UNIT NUMBER LT 16. 


(ILLIOT /IF NOT, ILLEGAL IOT 

(HNDTAB 

AC 

AC 

UCOF 

PC 

(7707 
ARQSM 
PC 
(70 

GETFLD 
(70 

ARGS*1 
ARGSM 


/ARG LIST IN DATA FIELD 

/GET FIRST WORD EXCEPT FOR FIELD 

/RELOCATE BUFFER FIELD 
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/ OS/S SUPPORT TASK POP RTS-8 


PALS-V90 09/11/71 PA6E S3 


889 

05646 

2167 


ISZ 

PC 


890 

05647 

1567 


TAD 1 

PC 


891 

05650 

3323 


DCA 

AR8S*2 


892 

05631 

2167 


ISZ 

PC 


893 

05652 

1367 


TAD I 

PC 


894 

05653 

3324 


DCA 

AR0S*3 


893 




IFDIP 

OSSP 

4 

896 

03634 

7201 


CLA IAC 



897 

05655 

1324 


TAD 

ARGO+3 


098 

05656 

0363 


AND 

(7770 

/IP THI I/O IS -0 A DIRECTORY BLOCK 

•99 

05637 

7450 


SNA 


/WE MUST SIT THI 0S8F INTERLOCK 

900 

05660 

1326 


TAD 

INTLOK 

/(IF XT HAS CLIIR) TO PREVENT 

Ml 

05661 

7650 


SNA CLA 


/SIMULTANEOUS Uf'DATE OF 

902 

05662 

2326 


X3Z 

INTLOK 

/THE OS/O QIREC' ORY 

903 




» 



904 

03663 

2167 


ZSZ 

PC 

/PROTECT A6AXN01 WXERD OR MALICIOUS BACKGROUNOERS 

90S 

05664 

7000 


NOP 


906 

05665 

6201 


COP CUR 



907 

05666 

1566 


TAD X 

AC 

/SET HANDLER TA1K NUMBER 

908 

05667 

7450 


SNA 



909 

05670 

5771 


JMP X 

(XLLXOT 

/XLLESAL HANDLE! XOT 

910 

05671 

7112 


CLL RTR 



911 

05672 

7010 


RAR 



912 

05673 

0364 


ANO 

(177 

/IN BITS 3-0 OF TABLE ENTRY 

913 

03674 

3302 


DCA 

HTASK 


914 

05675 

1566 


TAD I 

AC 

/GET UNIT NUMBEF 

913 

05676 

0363 


ANO 

(7 

/IN BITS 9-11 

916 

05677 

3321 


DCA 

ARGS 


917 

05700 

4020 


CAL 


/SEND THE I/O REQUEST TO THE APPROPRIATE TASK 

918 

05701 

0011 


SENDN 


919 

03702 

0000 

HTASK , 

0 



920 

05703 

5716 


XOHESS 


/AND WAIT FOR COMPLETION 

911 

05704 

1325 


TAD 

XOSTS 

/USE RETURN STATUS TO DETERMINE 

922 

05705 

7450 


SNA 


/WHETHER WE FAKE A NORMAL OR ERROR RETURN 

923 

05706 

2167 


ISZ 

PC 


924 

03707 

7640 


SZA CLA 



925 

05710 

7330 


AC4000 


/TRADITIONAL ERROR VALUE 

926 

05711 

3166 


DCA 

AC 


927 

05712 

1172 


TAD 

UCDF*1 


928 

05713 

7041 


CIA 



929 

03714 

1336 


TAD 

FLDTOL 

/COMPUTE VIRTUAL RETURN DF 

930 

03715 

5762 


JMP I 

(HNORIT 

/RETURN FROM OS/8 HANOLER 

931 







932 

05716 

0000 

I0MES3, 

ZOLOCK 

3 

/handler MESSAGE 

933 

05721 

0000 

ARCS, 

ZOLOCK 

4 


934 

05725 

0000 

IOSTSf 

0 



935 

05726 

0000 

INTLOK# 

0 


/0S8-0S8F INTERLOCK • 0 MEANS OIR FREE 






127 
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936 

05727 

0000 

GETFLD, 

, 0 /ROUTINE TO MAP FIELDS 

937 

05730 

7112 


CLL RTR 

938 

05731 

7010 


RAR 

939 

05732 

1361 


TAD (TAD FLOTBL 

940 

05733 

3334 


DCA ,M /THIS ROUTINE SHOULD LEAVE THE DF UNCHANGED 

941 

05734 

7402 


HLT 

942 

05735 

5727 


JMP I GETFLD 

943 





944 



/table 

OF REAL FIELDS 

945 





946 

05736 

6231 

FLOTBL, 

, COF OS8F0 

947 

05737 

6221 


CDF 0S8F1 

948 

05740 

6231 


COF 0S8F2 

949 

05741 

6221 


CDF 0S8F3 

950 

05742 

6231 


CDF 088F4 

951 

05743 

6221 


COF 0S8F5 

952 

05744 

6231 


CDF 0S8F6 

953 

05745 

6221 


CDF 0S8F7 

954 

05761 

1336 



955 

05762 

5132 



956 

05763 

0007 



957 

05764 

0177 



958 

05765 

7770 



959 

05766 

0070 


V 

960 

05767 

7707 



961 

05770 

6030 



962 

05771 

5063 



963 

05772 

7760 



964 

05773 

5726 



965 

05774 

7432 



966 

05775 

7746 



967 

05776 

0107 



968 

05777 

1557 



969 


6000 


PAGE 
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/ OS/S SUPPORT TASK FOR RTS»S 


970 



/0S8 FILE SUPPORT INTER! 

971 



/ON ENTRY, XR POINTS TO 

972 






973 




IFDEF 

OSBF 

974 

06000 

0000 

CKINTLi 

. 0 


975 

06001 

4020 

WTINTLi 

> CAL 


976 

06002 

0002 


WAITE 


977 

06003 

5726 

PINTLK ( 

i INTLOK 


978 

06004 

1777 

HNOLP, 

TAD I 

(FN 

979 

06005 

0376 


ANO 

(1777 

980 

06006 

7041 


CIA 


981 

06007 

1416 


TAD I 

XR 

982 

06010 

7650 


SNA CLA 


983 

06011 

5215 


JMP 

FNOOSD 

984 

06012 

2161 


ISZ 

length 

985 

06013 

5204 


JMP 

HNDLP 

986 

06014 

5600 


JMP I 

CKINTL 

987 

06015 

1016 

FNOOSD| 

, TAO 

XR 

988 

06016 

1375 


TAD 

(0S8DCB< 

989 

06017 

3161 


OCA 

LENGTH 

990 

06020 

6221 


CDF 088F1 

991 

06021 

1561 


TAO I 

LENGTH 

992 

06022 

0374 


AND 

(7 

993 

06023 

6201 


CDF CUR 


994 

06024 

7650 


SNA CLA 


995 

06025 

5600 


JMP I 

CKINTL 

996 

06026 

2603 


ISZ I 

PINTLK 

997 

06027 

5201 


JMP 

WTINTL 

998 




» 


999 






1000 



/TABLE 

OF CORRE0PONOENCI 

1001 






1002 

06030 

0000 

HNDTAB, 

, ZBLOCK 

20 
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« /ONLY ASSEMBLED IF NEEDED 

/WAIT FOR OS/S TO REACH A STATE IN WHICH 
/THERE IS NO POSSIBILITY OF AN ACTIVE 
/OIRECTORY BUFFER IN THE U8R, 

/SEE IF OUR DEVICE IS IN THE OS/8 SYSTEM 

/BY SEARCHING THE OSS SUPPORT TASK'S 
/TABLES FOR IT 
/FOUND IT 

/KEEP LOOKING 

/NOT THERE • NO INTERLOCK 


/GET POINTER INTO THE DCB ENTRY FOR THE 
/OEVICE INVOLVED 

/CHECK FOR OPEN OUTPUT FILE ON THE DEVICE 


/NONE • NO INTERLOCK 

/OOPS • WE CAN'T TOUCH OIRECTORY NOW 

/WAIT UNTIL THE NEXT QUIET MOMENT 


/FIRST WORO IS UNUSED - MUST BE 0 


/ OS/S 

SUPPORT TASK 

FOR RTS 

-8 

PAI 

1003 



/TABLES 

FOR OS/8 SUPPORT 

1004 






1005 



/TABLE 

OF legal 

lOT'S 

1006 






1007 

06050 

1564 

IOTLST, 

•ROF | 

XROF 

1008 

06051 

4742 




1009 

06052 

1554 


• RIFf 

XRIF 

1010 

06053 

4732 




1011 

06054 

1747 


• K3FI 

XKSF 

1012 

06055 

5000 




1013 

06056 

1746 


•kcc; 

XKCC 

1014 

06057 

5010 




1015 

06060 

1744 


• KRSl 

XKRS 

1016 

06061 

5023 




1017 

06062 

1742 


• KR6 f 

XKRB 

1016 

06063 

5007 




1019 

06064 

1737 


• TSFl 

XTSF 

1020 

06065 

5200 




1011 

06066 

1736 


• TCFI 

XTCF 

1022 

06067 

4670 




1023 

06070 

1732 


-TL3J 

XTLS 

1024 

06071 

5231 




1025 

06072 

1112 


•PSLSF 

XLL3 

1026 

06073 

5330 




1027 

06074 

HIT 


•PSKFl 

XSKP 

1028 

06075 

5005 




1029 

06076 

2000 


•60001 

HC ALL 

1030 

06077 

5600 




1031 

06100 

0000 


0 


1032 






1033 


0044 

LPTCNT" 

44 


1034 




IFNOEF 

088F 

1035 

06101 

0000 

LPMESG, 

ZBLOCK 

1 

1036 

06104 

6000 


6000 


1037 

06105 

0000 


0 


1038 

06106 

0000 

LPTBUF, 

ZBLOCK 

LPTCNTM 

1039 






1040 

06153 

0015 

ILIOMS, 

15112 


1041 

06154 

0012 




1042 

06155 

0000 


ZBLOCK 

osfill 

1043 

06161 

0310 


«H|-A|" 

LI"Tl■ 1" 

1044 

06162 

0301 




1045 

06163 

0314 




1046 

06164 

0324 




1047 

06165 

0240 




1048 

06166 

0301 




1049 

06167 

0324 




1050 

06170 

0240 




1051 

06171 

4600 




1052 

06174 

0007 




1053 

06175 

1727 




1054 

06176 

1777 




1055 

06177 

6255 




1056 


6200 


PAGE 
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/AS MUCH AS I CAC SPARE RIGHT NOW 
«LPTCNT«LPTCNT*3< » 

/UNPACKED ASCII, NO CRLF 
/DUMMY INPUT BUFFER WORD 

/ASSURE 4 ZERO AT THE END 


/WATCH GARBLING 1 
AF"T|" I4600 
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/ 08/S SUPPORT TASK POP RTS-S 


PAll«VtD ft/11/75 PAGE 27 


1037 



/ OS/8 INITIALIZATION CO 

1038 



/AND ESTABLISHES 

RELATIO 

10SR 



/AND RTS-S DRIVERS 

1080 





1081 


0003 

FIELD O8SP8X10 

1882 


4008 

*4008 


1083 





1084 

34000 

0000 

INXTOSf 0 


1083 

34001 

6002 

IOF 


1068 



IFNOEF 

LPT 

1067 



PSIE 


1068 



PCIE 


1069 



6 


1070 

34002 

6201 

COF 8 


1071 

34803 

1777 

TAD X 

C777T 

1072 

34004 

8376 

ANO 

(4787 

1S73 

34085 

1373 

TAD 

(1888 

1074 

34886 

3777 

OCA I 

(7777 

1875 

34007 

6281 

XMOVLP, CDF 0 


1876 

34010 

1643 

TAD X 

P7680 

1077 

34011 

6231 

COF OS6F0 

1B78 

34012 

3643 

OCA I 

P7680 

1879 

34013 

6211 

CDF 10 


1080 

34014 

1643 

TAD I 

P7600 

1061 

34015 

6221 

COF 0S8P1 

1082 

34016 

3643 

OCA I 

P7600 

1883 

34017 

2243 

ISI 

P7600 

1884 

34020 

3187 

JHP 

IMOVLP 

1085 

34081 

6201 

CDF 0 


108b 

34822 

1374 

TAD 

(TSXNT 

1087 

34023 

3773 

OCA I 

(TSSLOC 

1080 

34024 

3772 

OCA X 

(JS0XTS 

1869 

34023 

6831 

INOVMN, COP 0S8P8 

1890 

34026 

1640 

TAD I 

FKMND1 

1091 

34827 

3641 

OCA I 

PKHN02 

1092 

34030 

2240 

ISZ 

FKHN01 

1093 

34031 

2241 

ISZ 

FRHND2 

1094 

34032 

2242 

ISZ 

FKHNDC 

1095 

34033 

5223 

JMP 

IMOVHN 

1096 

34034 

6212 

CXF 10 


1887 

34035 

4771 

JMS I 

(7700 

1096 

34036 

0010 

10 - 


1099 

34037 

5770 

JHP I 

(INZHNL 

1180 





1101 

34040 

4044 

FKHND1, FAKHNO 


1102 

34041 

7607 

FKHND2, 7607 


1103 

34042 

7730 

FKNNDC, FAKHNO- 

FAKENO 

1104 

34043 

7600 

P7600, 7600 



• CRCATKS FAXE SYSTEM HEAD 


ACE 


/AIL RXNQZA HAN<Y-PANKY GOING ONI 

4 

/OISAILE LUC HT8, ENABLE LEG XNT8 
/OXSAfLE LEG XNfS, NOP ON LS8E Cl HOPE) 


/CLEAR OUT THE )S/S 
/BATCH XN PROGRESS FLAG 

/•XT f OH TfU* 08/8 THAT RTS-8 IS RUNNING 
/ANO 0OFTHARE CORE SIZE 


/HOVE BOTH fVSTKM HEAD PAGES 
/INTO THEW FAKI! PIELOS 












■-RAP VECTOR" IN RTS-8 EXEC 


/MOVE THE RTS-8 FAKE SYSTEM HANDLER INTO PLACE 


/LOAD THE OS/S USR INTO CORE (REAL CORE)) 
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/ OS/8 SUPPORT TASK FOR RTS-S 
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1103 

34170 

4200 



1106 

34171 

7700 



1107 

34172 

7746 



1108 

34173 

0200 



1109 

34174 

4630 



1110 

34175 

1000 



mi 

34176 

4707 



1112 

34177 

7777 



1113 


7607 

FAKHNO# RELOC 

7607 

1114 





1115 

37607* 

2253 

FAKSYS# ISZ 

DVNUM 

1116 

37610* 

2233 

ISZ 

OVNUM 

1117 

37611* 

2253 

ISZ 

DVNUM 

1118 

37612* 

2253 

ISZ 

DVNUM 

1119 

37613* 

2253 

ISZ 

DVNUM 

1120 





1121 

37614* 

2253 

ISZ 

DVNUM 

1122 

37615* 

2233 

ISZ 

OVNUM 

1123 

37616* 

2233 

ISZ 

DVNUM 

1124 

37617* 

2253 

ISZ 

OVNUM 

1125 

37620* 

2253 

ISZ 

OVNUM 

1126 

37621* 

2253 

ISZ 

OVNUM 

1127 

37622* 

2253 

ISZ 

OVNUM 

1128 

37623* 

2253 

ISZ 

OVNUM 

1129 

37624* 

2253 

ISZ 

OVNUM 

1130 

37625* 

2253 

ISZ 

OVNUM 

1131 

37626* 

0017 

PIT, 17 


1132 

37627* 

7200 

CLA 


1133 

37630* 

1253 

TAO 

DVNUM 

1134 

37631* 

7040 

CMA 


1135 

37632* 

1245 

TAD 

FAKTAD 

1136 

37633* 

3234 

OCA 

.♦t 

1137 

37634* 

7402 

HLT 


1138 

37635* 

3253 

DCA 

FAKPTR 

1139 

37636* 

7332 

AC2000 


1140 

37637* 

1234 

TAO 

• •3 

1141 

37640* 

3242 

DCA 

#♦2 

1142 

37641* 

1256 

TAD 

PAKXSZ 

1143 

37642* 

7402 

HLT 


1144 

37643* 

1233 

TAD 

OVNUM 

1145 

37644* 

7041 

CIA 


1146 

37645* 

1226 

FAKTAD, TAD 

PIT 

1147 

37646* 

3234 

DCA 

FAKT 

1148 

37647* 

3253 

DCA 

OVNUM 

1149 

37650* 

1234 

TAD 

FAKT 

1130 

37651* 

6000 

6000 


1131 

37652* 

7633 

PAKPTR 


1152 





1133 

37653* 

0000 

DVNUM# S 


1134 

37654* 

0000 

FAKT, 0 


1155 

37655* 

0000 

FAKPTR# 0 


1136 

37656* 

2253 

FAKI8Z# ISZ 

OVNUM 

1157 


4114 

RELOC 


1158 


4114 

FAKEND* . 


1159 


4200 

PAGE 



/FAKE 08/0 SYSTEM HANDLER 


/17 (8) ENTRY POINTS 


/JUST IN CAGE 

/GET ENTRY POINT NUMBER 

/TRANSFORM INTO "TAD" ON ENTRY POINT 

/GET CALLING ADDRESS 

/NOH FORM A "OCA ENTRY POINT" 

/RESTORE ENTRY POINT 

/GET RTS-S INTERNAL REFERENCE NUMBER 
/CLEAR DVNUM FOR NEXT CALL 
/MAGIC IOT 

/POINTER TO POINTER TO ARGLIST 






'l 
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• • 




/ OS/8 SUPPORT TASK FOR RTS-8 


1160 



/LOOP WHICH 

RELATES OS/8 

1161 







1162 



/ *** CAN'T 

USE 

LITERALS 

1163 







116 a 

39200 

2260 

INIHNLi 

ISZ 


HPTR 

1165 

34101 

1660 


TAD 

1 

HPTR 

1166 

34202 

7450 


SNA 



1167 

34203 

5240 


JMP 


ASDONE , 

1168 

342oa 

3tl« 


DCA 


A3NAM1 

1169 

3420S 

2260 


ISZ 


HPTR 

1170 

34206 

1660 


TAD 

I 

HPTR 

1171 

34207 

3215 


DCA 


ASNAM2 

1172 

34210 

2260 


ISZ 


HPTR 

1173 

34211 

6212 


CIF 

10 


1174 

34212 

4651 


JMS 

I 

L200 

1175 

34213 

0012 


12 


1176 

34214 

0000 

ASNAM1, 

0 



1177 

34215 

0000 

ASNAM2, 

0 



1178 

34216 

0000 


0 



1179 

34217 

5200 


JMP 


INIHNL 

1180 

34220 

1215 


TAD 


ASNAM2 

1181 

34221 

1252 


TAD 


POSHN 

1182 

34222 

3257 


DCA 


HNDPTR 

1183 

34223 

1215 


TAD 


A8NAM2 

usa 

34224 

1253 


TAD 


PHNDTAB 

1185 

34225 

3256 


DCA 


HTBPTR 

1186 

34226 

6221 


COF 

OS8F 1 

1187 

34227 

1254 


TAD 


PFAKSYS 

1188 

34230 

1215 


TAD 


ASNAM2 

1189 

34231 

3657 


DCA 

I 

HNDPTR 

1190 

34232 

6231 


CDF 

OS8F0 

1191 

34233 

1660 


TAD 

I 

HPTR 

1192 

34234 

6201 


CDF 

0 


1193 

34235 

3656 


DCA 

I 

HTBPTR 

119a 

34236 

6231 


CDF 

OSSF0 

1195 

34237 

5200 


JMP 


INIMNl 

1196 







1197 

34240 

6212 

ASDONE , 

CIF 

10 


1198 

34241 

4651 


JMS 

I 

1200 

1199 

34242 

0011 


11 



1200 

34243 

6231 


CDF 

OS8F0 

1201 

34244 

1655 


TAD 

I 

PINITOS 

1202 

34245 

3260 


DCA 


HPTR 

1203 

34246 

6203 


CDF 

CIF 

0 

120a 

34247 

6001 


ION 



1205 

1206 

34250 

5660 


JMP 

I 

HPTR 

1207 

34251 

0200 

1200 # 

200 



1208 

34252 

7646 

POSMN, 

0S8HN0- 

1 

1209 

34253 

6030 

phndtab 

,hndtab 


1210 

34254 

7606 

PFAKSYS 

,faksys-i 

1211 

34255 

4000 

PINITOS 

,INITOS 


1212 

34256 

6031 

HTBPTR, 

HNDTABM 

1213 

34257 

0000 

HNDPTR, 

0 




/GET NEXT HANDLER NAME 


/IS HANDLER THIRET 


2 m 62 u JfiC 


/HANDLER NOT SYSTEM CONFIGURATION 
/GET POINTER I* TO RESIDENT HANDLER TABLE 
/AND EQUIVALENT PTR INTO RTS-8 TABLE 


/ASSIGN ONE OF THE 17 ENTRY POINTS IN THE 
/FAKE SYSTEM HANDLER TO THIS DEVICE 

/GET THE RTS-B TASK ANO UNIT NUMBER 

/MAKE THE CORRESPONDING ENTRY IN THE 
/0S8 SUPPORT TASK TABLE 
/GET THE NEXT HANDLER 


/KICK OUT THE U8R 




/INTERRUPTS CAN GO BACK ON NOW 
/RETURN TO OS8SJP 
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/ OS/8 

SUPPORT 

’ TASK 

FOR RTS« 

■ 8 

1214 



/DEVICE 

CORRESPONDENt 

1215 





1216 

34260 

4260 

HPTR, 

• 

1217 





1218 

34261 

2331 


DEVICE SYS 

1219 

34262 

2300 



1220 

34263 

0100 


OSSY8D*10 

1221 

34264 

0423 


DEVICE OSK 

1222 

34265 

1300 



1223 

34266 

0100 


OS8YSO*10 

1224 





1225 




IFDEF OTA 

1226 

34267 

0424 


DEVICE DTA0 

1227 

34270 

0160 



1228 

34271 

0070 


DTA*10^0 

1229 

34272 

0424 


DEVICE DTA1 

1230 

34273 

0161 



1231 

34274 

0071 


DTA*10M 

1232 

34275 

0424 


DEVICE DTA2 

1233 

34276 

0162 



1234 

34277 

0072 


DTA*10+2 

1235 

34300 

0424 


DEVICE DT A3 

1236 

34301 

0163 



1237 

34302 

0073 


DTA*1043 

1236 

34303 

0424 


DEVICE DTA4 

1239 

34304 

0164 



1240 

34305 

0074 


D T A*104 4 

1241 

34306 

0424 


DEVICE DTA5 

1242 

34307 

0165 



1243 

34310 

0075 


OT A“10*5 

1244 

34311 

0424 


OEVICE DTA6 

1245 

34312 

0166 



1246 

34313 

0076 


DTA**10«-6 

1247 

34314 

0424 


DEVICE OT AT 

1248 

34315 

0167 



1249 

34316 

0077 


OTA*10*7 

1250 




> 
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JW* Ktok STL? 


\U>uo HT* u 
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/ 09/8 SUPPORT TA0K FOR RT8-8 


1291 



IPOEP RK9 

1252 

34317 

2213 

OEVICE RKA0 

1253 

34320 

0160 

RK0*10«0 

1254 

34S21 

0100 

1255 

34322 

2213 

OEVICE RK00 

1256 

34323 

0260 

RK8*10+4 

1257 

34324 

0104 

1259 

34325 

2213 

DEVICE RKA1 

1259 

34326 

0161 

RK0*10*1 

1260 

34327 

0181 

1261 

34330 

2211 

OEVICE RK0t 

1262 

34331 

0261 

RK8*10*9 

1263 

34332 

0105 

1264 

34333 

2211 

OEVICE RKA2 

1265 

34334 

0162 

RK8*10*2 

1266 

34335 

0102 

1287 

34336 

2211 

OEVICE RKB2 

1268 

34337 

0262 

RK8"10*6 

1269 

34340 

0106 

1270 

34341 

2213 

DEVICE RKA3 

1271 

34342 

0163 


1272 

34343 

0103 

RK8*10O 

1273 

34344 

2213 

OEVICE RK03 

1274 

34345 

0261 

RK8”10*7 

1275 

34346 

0107 

1276 



» 

1277 



IPOEP LTA « 

1278 

34347 

1424 

OEVICE LTA0 

1279 

34350 

0160 


1290 

34351 

0060 

LTA*10*0 

1281 

34352 

1424 

DEVICE LTA1 

1262 

34353 

0161 


1283 

34354 

0061 

LTA*10*t 

1284 

34355 

1424 

OEVICE UTA2 

1285 

34356 

0162 

ITA»10*2 

1286 

34357 

0062 

1287 

34360 

1424 

OEVICE ITA3 

1288 

34361 

0163 

ITA*10*3 

1289 

34362 

0063 

1290 

34363 

1424 

OEVICE LTA4 

1291 

34364 

0164 

ITA*10*4 

1292 

34365 

0064 

1293 

34366 

1424 

DEVICE LTA5 

1294 

34367 

0169 

ITA*10*5 

1295 

34370 

0065 

1296 

34371 

1424 

DEVICE LTA6 

1297 

34372 

0166 

UTA*10*6 

1298 

34373 

0066 

1299 

34374 

1424 

OEVICE LTA7 

1300 

34375 

0167 


1301 

34376 

0067 

LTA*lf*7 

1302 



» 

1303 




1304 



IPOEP RX6A « 

1305 

34377 

2230 

OEVICE RXA0 






135 



/ 08/9 SUPPORT TASK FOR RT8-B PAL8-V9D 09/11/75 7 AGE 3i«l 


1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 


34400 0160 

34401 0170 

34402 2230 

34403 0161 

34404 0171 


34405 0000 

4600 


RX8A"10*0 
DEVICE RXA1 


RX8A*10+1 


IPOEF RX8B < 
OEVZCE RXB0 
RX80"10*0 
OEVICE RXB1 
RX8B*10M 


IPOEF RX8C * 
OEVICE RXC0 
RX8C"l0+0 
OEVICE RXC1 
RX8C"10+1 


IPOEF RX80 4 
DEVICE RXO0 
RX8O*10«0 
OEVICE RX01 
RXBD*10+1 


IPOEP 0S8C0M < 
OEVICE RTSS 
O98COM”10*OS8P0 


0 

PAGE 

» 


I 


36 



/ OS/8 SUPPORT TASK FOR RT8-8 


PALS-V9D 09/11/75 PA6I SI 


1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 


0020 

0000 

0000 


/08/8 PILE SUPPORT TASK 


IFNDCF 0S8P 
1FOCP OIIF 


«XLXST 1* 


/PROVIDES RT8-8 TAINS NXTH THE FACILITY TO LOOKUP, ENTER 
/AND DELETE FILES IN OS/S DIRECTORIES, 

TASKS* 0S8F 

CUR2I CUR 
XNXNTS* 0 

/THE FORMAT OF A MESSAGE TO THIS TASK X:)| 

/WORD 1 ME3SA0E EVENT FLAG 

/WORDS IS3 RESERVED FOR RTS-I 

/WORD 4 FUNCTION WORDI 

/ BITS 0-1 Sf*LOOKUP,10wOELETI,0l0 (RENTER 

/ BITS 3-8 TASK NUMBER OF OEVXCE HANDLER 

/ SITS 9-11 UNIT NUMBER 

/WORD 5 POINTER TO FILE NAME 

/WORD 6 GETS A I IP SUCCESSFUL, ERROR CODE IF NOT 

/WORD 7 GETS BLOCK NUMBER AFTER SUCCESSFUL LOOKUP OR ENTER 

/WORD 8 GETS FILE LENGTH AFTER LOOKUP 

/ SPECIFIES DESIRED FILE LENGTH ON ENTER 

/PAGE 0 LOCATIONS I 


1369 


0000 


FIELD 

CURX10 


1370 


0016 


*16 



1371 

00016 

0000 

XR, 

0 



1372 







1373 


0160 


*160 



1374 

00160 

0000 

BLOCK, 

0 

/CURRENT BLOCK NUMBER 

1375 

00161 

0000 

LENGTH, 

0 

/CURRENT LENGTH 


1376 

00162 

0000 

PTNAME, 

0 

/POINTER TO FILE 

NAME 

1377 

00163 

0000 

nfiles, 

0 

/NUMBER OF FILES 

IN THIS 

1378 

00164 

0000 

ETMP, 

0 

/TEMPORARIES FOR 

"ENTER" 

1379 

00165 

0000 

EPTR, 

0 




/ OS/8 SUPPORT TASK FOR RTS-8 PAL8-V90 09/11/75 PAGE 33 

1380 6200 *6200 

1381 

1382 06200 4020 START2, CAL 


1383 

06201 

0001 


RECEIVE 


138a 

06202 

0000 

maddr, 

0 



1385 

06203 

3260 


OCA 


MSGCDF 

1386 

06204 

4257 


JMS 


MCDF 

1387 

06205 

1602 


TAD 

I 

MADDR 

1388 

06206 

3255 


OCA 


FN 

1389 

06207 

2202 


13 Z 


MADDR 

1390 

06210 

1602 


TAO 

I 

MADDR 

1391 

06211 

3162 


DC A 


PTNAME 

1392 

06212 

2202 


ISZ 


MADDR 

1393 

06213 

6201 


COF 

CUR 


139a 

06214 

1255 


TAD 


FN 

1395 

06215 

0377 


AND 


(7 

1396 

06216 

3337 


DC A 


UNIT 

1397 

06217 

1255 


TAD 


FN 

1398 

06220 

7112 


CLL 

RTR 


1399 

06221 

7010 


RAR 



1400 

06222 

0376 


ANO 


(77 

1401 

06223 

3315 


DCA 


IOTASK 

1402 

06224 

1255 


TAD 


FN 

1403 

06225 

7104 


CLL 

RAL 


1404 

06226 

7710 


SPA 

CLA 


1405 

06227 

5265 


JMP 


ENTER 

1406 

06230 

7620 


SNL 

CLA 


1407 

06231 

5262 


JMP 


LOOKUP 

1408 

06232 

4775 


JMS 

I 

(PURGE 

1409 

06233 

7001 

nofile, 

I AC 



1410 

06234 

4257 

FINI, 

JMS 


MCDF 

1411 

06235 

3602 


DCA 

I 

MADDR 

1412 

06236 

2202 


ISZ 


MADDR 

1413 

06237 

1160 


TAD 


BLOCK 

1414 

06240 

3602 


DCA 

I 

MADOR 

1415 

06241 

2202 


ISZ 


MADDR 

1416 

06242 

1161 


TAD 


LENGTH 

1417 

06243 

3602 


DCA 

I 

MADDR 

1418 




IFDEF 

038 

1419 

06244 

1374 


TAD 


(038 

1420 

06245 

4020 


CAL 



1421 

06246 

0003 


RUN 



1422 




> 



1423 

06247 

1260 


TAO 


MSGCDF 

1424 

06250 

3255 


DCA 


MEF COF 

1425 

06251 

1202 


TAD 


MAOOR 

1426 

06252 

1373 


TAO 


(-7 

1427 

06253 

4020 


CAL 



1428 

06254 

0005 


POST 


1429 



fn, 




1430 

06255 

0000 

mefcdf, 

0 



1431 

06256 

5200 


JMP 


START2 

1432 







1433 

06257 

0000 

MCDF, 

0 



1434 

06260 

7402 

MSGCDF , 

HLT 




/WAIT FOR A MESSAGE AND PULL IT IN 

/SET OF TO MESSAliE FIELD 
/SAVE FUNCTION 

/SAVE PTR TO FILL NAME 

/UNIT NUMBER IN EITS 9-11 OF FUNCTION WORD 

/HANOLER'S TASK NUMBER IN BITS 3-8 

/FUNCTIONS ARE I 

/0000*LOOKUP, 200 0*DELETE, 4000»6000«ENTER 

/DELETE • PURGE FILE NAME FROM OS/8 DIRECTORY 
/ERROR RETURN • SET STATUS CODE 

/STORE STATUS CODE 

/STORE BLOCK NUMBER AND LENGTH IN MESSAGE 
< 

/RESUME OS/8 EXECUTION 

/POST MESSAGE EVENT FLAG 
/GET NEXT MESSAGE 



«k 


/ OS/8 SUPPORT TASK FOR RTS-8 
1435 06261 5657 JMP I 


PALS-V90 09/11/75 PACE 33.1 


MCDF 


/ OS/8 

SUPPORT TASK 

FOR RTS 

• 8 

PAL6*V9D 09/11/15 PACE 34 

1436 

06262 

4772 

LOOKUP, 

JMS I 

(MOSRCH 

/FIND FILE NAMt IN DIRECTORY 

1437 

06263 

5233 


JMP 

NOFILE 

/NOT FOUND 

1438 

06264 

5234 


JMP 

FINI 

/FOUND, 

1439 







1440 

06265 

4775 

ENTER, 

JMS I 

(PURGE 

/DELETE PREVIOIS COPY OF FILE 

1441 

06266 

7000 


NOP 


/FILE NOT FOUNC . WHO CARES? 

1442 

06267 

7326 


AC0002 



1443 

06270 

1202 


TAO 

MAOOR 


1444 

06271 

3161 


OCA 

LENGTH 


1445 

06272 

4257 


JMS 

MCOF 


1446 

06273 

1561 


TAD I 

length 

/GET DESIREO LENGTH 

1447 

06274 

6201 


COF CUR 



1448 

06275 

5771 


JMP I 

(ENTERX 


1449 







1450 

06276 

0000 

MROCAT, 

0 


/DIRECTORY REAC ROUTINE 

1451 

06277 

334 2 


OCA 

OBLOCK 

/ENTER WITH BLCCK NUMBER IN AC 

1452 

06300 

4310 


JMS 

MREADC 

/READ DIR BLK 

1453 

06301 

1770 


TAD I 

(DSTBLK 


1454 

06302 

3160 


OCA 

BLOCK 

/INITIALIZE BLCCK NUMBER FROM DIRECTORY 

1455 

06303 

1741 


TAD I 

PDCNT 


1456 

06304 

3163 


OCA 

NFRES 

/INITIALIZE FILE COUNT 

1457 

06305 

1367 


TAD 

(DB00Y-1 

l 

1458 

06306 

3016 


OCA 

XR 

/INITIALIZE DIRECTORY FILE PTR 

1459 

06307 

5676 


JMP I 

MROCAT 


1460 







1461 

06310 

0000 

MREADC, 

0 


/LOW-LEVEL DIRECTORY READ/WRITE ROUTINE 

1462 

06311 

1366 


TAD 

(200*CUR 

1463 

06312 

3340 


OCA 

IOCTLW 

/STORE READ OR WRITE CONTROL WORD 

1464 

06313 

4020 


CAL 



1465 

06314 

0011 


SENDW 



1466 

06315 

0000 

IOTASK, 

0 



1467 

06316 

6334 


IOMSG 



1468 

06317 

1343 


TAD 

iostat 


1469 

06320 

7440 


SZA 



1470 

06321 

5234 


JMP 

FINI 

/I/O ERROR « RETURN I/O STATUS AS ERROR 

1471 

06322 

1741 


TAO I 

PDCNT 


1472 

06323 

7140 


CMA CLL 



1473 

06324 

1765 


TAD I 

(DLINK 


1474 

06325 

0364 


AND 

(7700 


1475 

06326 

7420 


SNL 


/validate the directory buffer 

1476 

06327 

7640 


SZA CLA 



1477 

06330 

7410 


SKP 


/BAD 

1478 

06331 

5710 


JMP I 

MREAOC 


1479 

06332 

7330 


AC 4000 



1480 

06333 

5234 


JMP 

FINI 

/ERROR 4000 « BAD OS/S DIRECTORY BLOCK 
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/ OS/8 SUPPORT TASK FOR RT8-* 


PALS-V90 09/11/7! PAGC 35 


1481 

06334 

0000 

I0M3G, 

ZBLOCK 

1482 

06337 

0000 

UNIT, 

0 

1483 

06340 

0000 

IOCTLW, 

0 

1484 

06341 

7200 

POCNT, 

DBUF 

1485 

06342 

0000 

OBLOCK, 

0 

1466 

1467 

06343 

0000 

IOSTAT, 

0 

1488 

06344 

0000 

MEOVLS, 

ZBLOCK 

1489 

06364 

7700 



1490 

06365 

7202 



1491 

06366 

0200 



1492 

06367 

7204 



1493 

06370 

7201 



1494 

06371 

6400 



1495 

06372 

6600 



1496 

06373 

7771 



1497 

06374 

0023 



1496 

06375 

6661 



1499 

06376 

0077 



1500 

06377 

0007 



1501 


6400 


PAGE 


/UNIT NUMBER 
/I/O CONTROL NO'D 
/BUFFER PTR 
/BLOCK NUMBER 
/COMPLETION STATUS 

/TEMPORARY STORAGE FOR DIRECTORY EXPANDER 
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/ OS/B SUPPORT TASK FOR RTS-6 PAL8-V90 09/11/75 PAGE 36 


1502 

06400 

3161 

ENTERX, 

OCA 


LENGTH 

/STORE OESIRED Lf NGTH 

1503 

06401 

3165 

RENTER, 

OCA 


EPTR 

/SET FOUND POINT!R TO 0 

1504 

06402 

7201 


CLA 

I AC 



1505 

06403 

4777 

EN8EGL, 

JMS 

I 

(MROCAT 

/GET NEXT DIRECT!RY SEGMENT 

1506 

06404 

1416 

ENSRCL, 

TAO 

I 

XR 

/GET NEXT ENTRY ' 

1507 

06405 

7650 


SNA 

— t 

u 



1508 

06406 

5227 


JMP 


EMPTY 

/IT'S EMPTY 

1509 

06407 

7346 


AC7775 


/IT'S A FILE - SKIP IT 

1510 

06410 

4776 


JMS 

I 

(BUMPXR 


1511 

06411 

1416 


TAD 

I 

XR 


1512 

06412 

7041 

elend, 

CIA 




1513 

06413 

1160 


TAD 


BLOCK 

/UPDATE BLOCK NUFBER 

1514 

06414 

3160 


DCA 


BLOCK 


1515 

06415 

2163 


ISZ 


nfiles 


1516 

06416 

5204 


JMP 


ENSRCL 


1517 

06417 

1165 


TAO 


EPTR 


1518 

06420 

7640 


SZA 

CLA 


/DID ME FIND A SLITABLE EMPTY IN THIS SEGMENT? 

1519 

06421 

5247 


JMP 


EINRTS 

/YES 

1520 

06422 

1775 


TAD 

I 

(DLINK 

/NO • GO TO NEXT SEGMENT 

1521 

06423 

7440 


SZA 




1522 

06424 

5203 


JMP 


ENSEGL 


1523 

06425 

7326 

ENTERR, 

AC0002 


/NO MORE SEGMENTS • ENTER ERROR 

1524 

06426 

5774 


JMP 

I 

(F IN I 


1525 








1526 

06427 

1416 

EMPTY, 

TAO 

I 

XR 


1527 

06430 

3164 


OCA 


ETMP 

/SAVE length of empty 

1528 

06431 

1165 


tad 


EPTR 


1529 

06432 

7640 


SZA 

CLA 


/DO WE ALREADY HAVE A GOOD EMPTY? 

1530 

06433 

5245 


JMP 


ENOGO 

/YES • DISREGARD THIS'N 

1531 

06434 

7340 


CLL 

STA 



1532 

06435 

1164 


TAD 


ETMP 


1533 

06436 

1161 


TAO 


length 


1534 

06437 

7620 


8NL 

CLA 


/IS IT LARGE ENOUGH? 

1535 

06440 

5245 


JMP 


ENOGO 

/NO 

1536 

06441 

1016 


TAD 


XR 


1537 

06442 

3165 


DCA 


EPTR 


1538 

06443 

1160 


TAD 


BLOCK 


1539 

06444 

3325 


OCA 


EBLOCK 


1540 

06445 

1164 

ENOGO, 

TAD 


ETMP 


1541 

06446 

5212 


JMP 


ELEND 

/UPDATE BLOCK NUMBER 


142 
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/ OS/8 

SUPPORT 

TASK 

FOR RTS 

• 8 


PAL8.V9D 09/11/75 PACE 37 

1542 

06447 

1016 

EINRTS, 

TAD 


XR 


1543 

06450 

3164 


OCA 


ETMP 

/SAVE POINTER TO END OF SEGMENT 

1544 

06451 

1565 


TAO 

X 

EPTR 

/GET LENGTH OF GOOD EMPTY 

1545 

06452 

1161 


TAD 


LENGTH 


1546 

06453 

7650 


8NA 

CLA 


/CHECK FOR EXACT PIT 

1547 

06454 

7326 


AC0002 


/YES • EMPTY MXLI. DISAPPEAR 

1548 

06455 

1373 


TAO 


(•4 


1549 

06456 

4776 


JMS 

X 

(SUMPXR 


1550 

06457 

4345 


JM8 


CKOVFL 

/CHECK SEGMENT OVERFLOW 

1551 

06460 

4326 


JM8 


MOVEUP 


1552 

06461 

1565 


TAO 

X 

EPTR 


1553 

06462 

1161 


TAO 


LENGTH 


1554 

06463 

7450 


SNA 




1555 

06464 

2772 


ISZ 

X 

(OBUF 

/REDUCE PXLE COUHT BY 1 FOR KILLED EMPTY 

1556 

06465 

7000 


NOP 




1557 

06466 

7440 


SZA 




1558 

06467 

3416 


OCA 

X 

XR 

/OTHERWISE STORE UPDATED LENGTH 

1559 

06470 

7240 


STA 




1560 

06471 

1164 


TAD 


ETMP 


1561 

06472 

3016 


OCA 


XR 

/RESTORE END«OF»lEGMENT POINTER TO XR 

1562 

06473 

1373 


TAO 


(•4 


1563 

06474 

3164 


OCA 


ETMP 


1564 

06475 

4771 

NMOVLP, 

JMS 

X 

CMCOF 


1565 

06476 

1562 


TAD 

I 

PTNAME 


1566 

06477 

2162 


ISZ 


PTNAME 


1567 

06500 

6201 


COF 

CUR 



1568 

06501 

3416 


OCA 

I 

XR 

/Move FILE NAME INTO DIRECTORY SEGMENT 

1569 

06502 

2164 


X8Z 


ETMP 


1570 

06503 

5275 


JMP 


NMOVLP 


1571 

06504 

6201 


COF 

0 



1572 

06505 

1770 


TAD 

X 

(DATE 


1573 

06506 

6201 


COF 

CUR 



1574 

06507 

3416 


OCA 

I 

XR 

/STORE SYSTEM OATE IN ADDITIONAL INFO WORD PI 

1575 

06510 

7201 


CLA 

X AC 



1576 

06511 

4776 


JMS 

I 

(SUMPXR 


1577 

06512 

1161 


TAD 


length 


1578 

06513 

7041 


CIA 




1579 

06514 

3416 


OCA 

I 

XR 

/STORE LENGTH OF NEW FILE 

1580 

06515 

7240 


STA 




1581 

06516 

1772 


TAO 

I 

(OBUF 

/INCREMENT FILE COUNT 

1582 

06517 

3772 


OCA 

I 

(OBUF 


1583 

06520 

7330 


AC4000 


/WRITE THIS SEGMENT BACK OUT 

1584 

06521 

4767 


JMS 

X 

(MREAOC 


1585 

06522 

1325 


TAD 


EBLOCK 


1586 

06523 

3160 


OCA 


BLOCK 

/RESTORE BLOCK FO) STORING INTO MESSAGE 

1587 

06524 

5774 


JMP 

I 

(FINI 



/ OS/8 

SUPPORT 

' TASK 

FOR RTS*8 

PAL8-V9D 09/11/75 PAGE 38 

1588 

06525 

0000 

EBLOCK, 0 


1589 





1590 

06526 

0000 

MOVEUP, 0 

/ROUTINE USED BY INTER AND "NOROOM" 

1591 

06527 

1564 

TAO I 

ETMP 

1592 

06530 

3416 

OCA I 

XR /TRANSFER A WORD 

1593 

06531 

1164 

TAO 

ETMP 

1594 

06532 

7040 

CMA 


1595 

06533 

1165 

TAO 

EPTR 

1596 

06534 

7650 

SNA CLA 


1597 

06535 

5726 

JMP I 

MOVEUP /ENOUGH WORDS • DCNE 

1598 

06536 

7240 

STA 


1599 

06537 

1164 

TAO 

ETMP 

1600 

06540 

3164 

OCA 

ETMP 

1601 

06541 

7344 

AC7776 


1602 

06542 

1016 

TAO 

XR 

1603 

06543 

3016 

OCA 

XR 

1604 

06544 

5327 

JMP 

MOVEUP41 

1605 





1606 

06545 

0000 

CKOVFLi 0 

/CHECK OIRECTORY SEGMENT OVERFLOW 

1607 

06546 

1766 

TAO I 

(DEXTRA 

1608 

06547 

7041 

CIA 


1609 

06550 

1016 

TAD 

XR /MUST BE ROOM FOR 1 DUMMY ENTRY 

1610 

06551 

1365 

TAO 

(•OBUF-372 

1611 

06552 

7700 

8MA CLA 


1611 

06553 

5764 

JMP I 

(NOROOM /THERE ISN'T • MUST AOJUST SEGMENTS 

1613 

06554 

5745 

JMP I 

CKOVFL 

1614 

06564 

7000 



1615 

06565 

0206 



1616 

06566 

7204 



1617 

06567 

6310 



1618 

06570 

0040 



1619 

06571 

6257 



1620 

06572 

7200 



1621 

06573 

7774 



1622 

06574 

6234 



1623 

06575 

7202 



1624 

06576 

6651 



1625 

06577 

6276 



1626 


6600 

PAGE 
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/ OS/8 SUPPORT TASK FOR RTS-8 


PAL8-V9D 09/U/7! PA8E J9 

/directory sear:h routine 


1627 

06600 

0000 

MDSRCH, 0 



1628 

06601 

7201 

CLA 

I AC 


1629 

06602 

4777 

SRSEGL, JMS 

I 

(MROCA 

1630 

06603 

1162 

MOSRCL, TAO 


PTNAME 

1631 

06604 

3260 

OCA 


PTN 

1632 

06605 

1376 

TAO 


(•4 

1633 

06606 

3257 

DCA 


CT 

1634 

06607 

1416 

TAD 

I 

XR 

1635 

06610 

7450 

SNA 



1636 

06611 

5237 

JMP 


SKPMTF 

1637 

06612 

7410 

SKP 



1638 

06613 

1416 

8RCWDL, TAO 

I 

XR 

1639 

06614 

7041 

CIA 



1640 

06615 

4773 

JMS 

I 

(MCDF 

1641 

06616 

1660 

TAD 

I 

PTN 

1642 

06617 

2260 

ISZ 


PTN 

1643 

06620 

6201 

CDF 

CUR 


1644 

06621 

7640 

SZA 

CLA 


1645 

06622 

5234 

JMP 


NXTFIL 

1646 

06623 

2257 

ISZ 


CT 

1647 

06624 

5213 

JMP 


SRCMDL 

1648 

06625 

4251 

JMS 


BUMPXR 

1649 

06626 

1416 

TAD 

I 

XR 

1650 

06627 

7450 

SNA 



1651 

06630 

5240 

JMP 


3KPMTF< 

1652 

06631 

3161 

OCA 


LENGTH 

1653 

06632 

2200 

ISZ 


MDSRCH 

1654 

06633 

5600 

JMP 

I 

MOSRCM 

1655 






1656 

06634 

1257 

NXTFIL, TAO 


CT 

1657 

06635 

7001 

I AC 



1658 

06636 

4251 

JMS 


BUMPXR 

1659 

06637 

1416 

SKPMTF, TAO 

I 

XR 

1660 

06640 

7041 

CIA 



1661 

06641 

1160 

TAD 


BLOCK 

1662 

06642 

3160 

DCA 


BLOCK 

1663 

06643 

2163 

ISZ 


nfiles 

1664 

06644 

5203 

JMP 


MOSRCL 

1665 

06645 

1774 

TAO 

I 

(DLINK 

1666 

06646 

7450 

SNA 



1667 

06647 

5600 

JMP 

I 

MDSRCH 

1668 

06650 

5202 

JMP 


SRSEGL 

1669 






1670 

06651 

0000 

BUMPXR, 0 



1671 

06652 

1773 

TAD 

I 

(OEXTRA 

1672 

06653 

7041 

CIA 



1673 

06654 

1016 

TAD 


XR 

1674 

06655 

3016 

DCA 


XR 

1675 

06656 

5651 

JMP 

I 

BUMPXR 

1676 






1677 

06657 

0000 

CT, 0 



1678 

06660 

0000 

PTN, 0 




/GET POINTER TO FILE NAHE NORO 1 


/CHECK TYPE OF liNTRY 
/EMPTY 

/SKIP INTO SEARCH LOOP 


/COMPARE FILE NnME ABAINST OIRECTORY ENTRY 


/GET LENOTH NORIi 

1 /LENGTH • files ARE TENTATIVES 


(OEXTRA /GET NUMBER OF ADDITIONAL INFO WORDS 
/BUMP POINTER BY AC^A.I.WORDS 
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1679 

06661 

0000 

PURGE, 

0 


/ROUTINE TO PURG: A FILE FROM THE OIRECTORY 

1680 




IFDEF 

OSS 

< /MUST INTERLOCK WITH BACKGROUND 

1681 

06662 

1372 


TAD 

(HNOTAB 

1682 

06663 

3016 


DCA 

XR 

/PREPARE TO CHECK OS/8 INTERLOCK 

1683 

06664 

1371 


TAO 

(-17 

1684 

06665 

3161 


OCA 

LENGTH 


1685 

06666 

4770 


JMS I 

(CKINTL 

/CHECK IT 

1686 

06667 

1367 


TAD 

(038 

/MADE ITI • SUSPCNO OS/8 

1687 

06670 

4020 


CAL 


/SO WE WON'T HAVI ANY TROUBLE 

1688 

06671 

0004 


SUSPND 


1689 

06672 



> 


/END INTERLOCK CONDITIONAL 

1690 

4200 


JMS 

MDSRCH 

/SEARCH DIRECTOR* FOR FILE NAME 

1691 

06673 

5661 


JMP I 

PURGE 

/NO SUCH FILE • IRROR EXIT 

1692 

06674 

2261 


ISZ 

PURGE 

1693 

06675 

7344 


AC7776 



169a 

06676 

1016 


TAD 

XR 


1695 

06677 

3016 


OCA 

XR 

/POINT XR AT LENCTH WORD . 1 

1696 

06700 

1016 


TAD 

XR 

1697 

06701 

3363 


OCA 

SQP 


1698 

06702 

2363 


ISZ 

SOP 


1699 

06703 

3763 


DCA I 

SQP 

/ZERO LENGTH WORC -1 

1700 

06704 

7346 


AC 7 775 


1701 

06705 

1773 


TAO I 

(DEXTRA 


1702 

06706 

4350 


JMS 

SQUISH 

/SQUISH OUT FILE NAME, LEAVING EMPTY 

1703 

06707 

4313 


JMS 

CONSOL 

/ELIMINATE PAIRS OF EMPTIES 

1704 

06710 

7330 


AC4000 


1705 

0671 1 

4766 


JMS I 

(MREADC 

/WRITE OUT THIS SEGMENT 

1706 

06712 

5661 


JMP I 

PURGE 

/AND RETURN 

1707 






1708 

06713 

0000 

CONSOL, 

0 


/ROUTINE TO CONSOLIDATE A DIRECTORY 

1709 

06714 

1373 


TAD 

(DBOOY-1 

l 

1710 

06715 

3016 


DCA 

XR 


1711 

06716 

1765 


TAD I 

(DBUF 


1712 

0671 7 

3257 


OCA 

CT 


1713 

06720 

1416 

conlp, 

TAD I 

XR 


1714 

06721 

7650 


SNA CLA 



1715 

06722 

5330 


JMP 

PEMPTY 

/GOT AN EMPTY • CHECK FOR 2 

1716 

06723 

1376 

PSKIPF, 

TAD 

(-4 

1717 

06724 

4251 


JMS 

BUMPXR 

/SKIP PAST FILE NAMES 

1718 

06725 

2257 


ISZ 

CT 

1719 

06726 

5320 


JMP 

CONLP 


1720 

06727 

5713 


JMP I 

CONSOL 

/DONE • RETURN 

1721 






1722 

06730 

2016 

PEMPTY, 

ISZ 

XR 


1723 

06731 

1016 


TAD 

XR 


1724 

06732 

3350 


OCA 

SQUISH 

/SAVE POINTER TO FIRST LENGTH WORD 

1725 

06733 

2257 


ISZ 

CT 

1726 

06734 

7410 


SKP 



1727 

06735 

5713 


JMP I 

CONSOL 

/LAST ENTRY WAS EMPTY • WE'RE DONE 

1728 

06736 

1416 


TAD I 

XR 

1729 

06737 

7640 


SZA CLA 



1730 

06740 

5323 


JMP 

PSKIPF 

/NON-EMPTY - NO SQUISH 

1731 

06741 

1416 


TAD I 

XR 

1732 

06742 

1750 


tad I 

SQUISH 


1733 

06743 

3750 


OCA I 

SQUISH 





/ OS/8 SUPPORT TASK FOR RTS-8 

1734 08744 7344 AC7774 

1735 08745 4350 JM8 

1736 06746 2765 ISZ X 

1737 06747 5314 JMP 


PALB-V90 99/il/H PACE 49-1 


SQUISH /SQUISH OUT REHJNDANT EMPTY 
(OftUP 

CONSOL*! /START ALL OVER AGAIN 
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SUPPORT 
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FOR RTS-8 
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1738 

06750 

0000 

SQUISH, 0 

/LOW LEVEL COMPRESS ROUTINE 

1739 

06751 

1016 

TAD 

XR 

1740 

06752 

3363 

OCA 

SQP 

1741 

06753 

1416 

SQLOOP, TAD I 

XR 

1742 

06754 

2363 

ISZ 

SQP 

1743 

06755 

3763 

DCA I 

SQP 

1744 

06756 

1016 

TAD 

XR 

1745 

06757 

1364 

TAO 

(-0BUF-377 

1746 

06760 

7640 

SZA CIA 


1747 

06761 

5353 

J HP 

SQLOOP 

1748 

06762 

5750 

JMP I 

SQUISH 

1749 





1750 

06763 

0000 

SQP, 0 


1751 

06764 

0291 



1752 

06765 

7200 



1753 

06766 

6310 



1754 

06767 

0023 



1755 

06770 

6000 



1756 

06771 

7761 



1757 

06772 

6030 



1758 

06773 

7204 



1759 

06774 

7202 



1760 

06775 

6257 



1761 

06776 

7774 



1762 

06777 

6276 



1763 


7000 

PAGE 



la* 







/ OS/S SUPPORT TASK FOR RTS-6 
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1764 

07000 

1777 

NOROOM, 

TAD 

I 

1765 

07001 

7650 


SNA 

CLA 

1766 

07002 

5255 


JMP 


1767 

07003 

2776 


ISZ 

I 

1768 

07004 

7330 


AC4000 

1769 

07005 

4775 


JMS 

I 

1770 

07006 

4324 


JMS 


1771 

07007 

3346 


DCA 


1772 

07010 

1374 


TAD 


1773 

0701 1 

3165 


DCA 


1774 

07012 

1416 

MVLPl, 

TAD 

I 

1775 

07013 

2165 


ISZ 


1776 

07014 

3565 


DCA 

I 

1777 

07015 

2346 


ISZ 


1778 

07016 

1016 


TAD 


1779 

07017 

7041 


CIA 


1780 

07020 

1164 


TAD 


1781 

07021 

7640 


SZA 

CLA 

1782 

07022 

5212 


JMP 


1783 

07023 

1564 


TAD 

I 

1784 

07024 

3347 


DCA 


1785 

07025 

1777 


TAD 

I 

1786 

07026 

4773 


JMS 

I 

1787 

07027 

4772 


JMS 

I 

1788 

07030 

1771 


TAD 

I 

1789 

07031 

1347 


TAD 


1790 

07032 

3771 


OCA 

I 

1791 

07033 

4324 


JMS 


1792 

07034 

1016 


TAD 


1793 

07035 

3164 


DCA 


1794 

07036 

7240 


8TA 


1795 

07037 

1346 


TAD 


1796 

07040 

1016 


TAD 


1797 

07041 

3016 


OCA 


1798 

07042 

1370 


TAO 


1799 

07043 

3165 


DCA 


1800 

07044 

4767 


JMS 

I 

1801 

07045 

1374 


TAD 


1802 

07046 

3G16 


DCA 


1803 

07047 

7240 


8TA 


1804 

07050 

1776 


TAD 

I 

1805 

07051 

3776 


DCA 

I 

1806 

07052 

1346 


TAO 


1807 

07053 

7041 


CIA 


1808 

07054 

5305 


JMP 



(DUNK 

/LAST SEGMENT? 

MELAST /YES • SPECIAL PROCEDURE 
(DBUF /DECREASE ENTRY COUNT BY 1 

(MREADC /WRITE OUT THIS SCGHENT 

M3KIPF /FIND END OF SHOR’’ SEGMENT 

MEFCNT /INITIALIZE LENGTH COUNTER 

(MEOVLS-1 

EPTR 

XR 

EPTR 

EPTR 

MEFCNT 

XR 

ETMP /MOVE LAST FILE N/ME TO SAFE PLACE 

MVLP1 

ETMP 

MEOCNT /SAVE LENGTH OF L*ST ENTRY 

CDIINK 

(MRDCAT 

(CONSOL /PRE-SQUISH NEW SIGMENT 
(DSTBLK 

MEOCNT /BUMP OOWN FILE ORIGIN 
(DSTBLK 

MSKXPF /FIND ENO OF SEGMENT 
XR 

ETMP 

MEFCNT 

XR 

XR /BUMP XR BACK BY NEW FILE ENTRY LENGTH 

(OBODY+1 

EPTR 

(MOVCUP 

(MEOVLS-1 

XR 

(DBUF 

(DBUF /INCREASE ENTRY COUNT 
MEFCNT 

MECOMN 
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1809 

07055 

1366 

MELAST, 

TAD 


(7 

/MOVE 7 FILES INTO BRAND NEW SEGMENT 

1810 

07056 

1776 


TAD 

I 

(DBUF 


1811 

07057 

3776 


OCA 

I 

(DBUF 

/DECREASE ENTRY COJNT BY 7 

1812 

07060 

4324 


JMS 


M3KIPF 

/FIND NEW END OF f 1GMENT 

1813 

07061 

1765 


TAO 

I 

(DBLOCK 


1814 

07062 

0366 


AND 


(7 


1815 

07063 

7001 


IAC 




1816 

07064 

3777 


OCA 

I 

(DLINK 

/LINK THIS SEGMENT TO NEW ONE 

1817 

07065 

1777 


TAO 

I 

(OLINK 


1818 

07066 

1364 


TAD 


(-7 


1819 

07067 

7700 


SMA 

CLA 


/HAVE WE RUN OUT OH SEGMENTS? 

1620 

07070 

5763 


JMP 

I 

(ENTERR 

/YES 

1821 

07071 

7330 


AC4000 



1822 

07072 

4775 


JMS 

I 

(MREADC 

/WRITE OUT TRUNCATED BLOCK 

1823 

07073 

2765 


ISZ 

I 

(DBLOCK 

/SET UP TO WRITE NCW BLOCK 

1824 

07074 

1364 


TAD 


(-7 


1825 

07075 

3776 


DCA 

I 

(DBUF 


1826 

07076 

1347 


TAD 


MEOCNT 


1827 

07077 

7041 


CIA 




1828 

07100 

1771 


TAD 

I 

(DSTBLK 

/NEW START BLOCK « OLD START BLOCK 

1829 

07101 

3771 


OCA 

X 

(DSTBLK 

/PLUS LENGTH OF OH> SEGMENT 

1830 

07102 

3777 


DCA 

I 

(DLINK 

/MARK AS NEW LAST (SEGMENT 

1831 

07103 

1016 


TAD 


XR 


1832 

07104 

1362 


TAO 


(-DBUF-377 /MOVE TOP (IF DIRECTORY DOWN 

1633 

07105 

3346 

MECOMN, 

DCA 


MEFCNT 


1834 

07106 

1361 


TAD 


(DBODY- 

1 

1835 

07107 

3165 


DCA 


EPTR 


1636 

07110 

1416 

MVLP2, 

TAD 

I 

XR 


1837 

07111 

2165 


ISZ 


EPTR 


1836 

07112 

3565 


DCA 

I 

EPTR 

/COPY NEW FILE INTC NEW SEGMENT 

1839 

07113 

2346 


ISZ 


MEFCNT 


1840 

07114 

5310 


JMP 


MVLP2 


1641 

07115 

4324 


JMS 


mskipf 

/SKIP TO ENO OF 8ECMENT 

1842 

07116 

1016 


tad 


XR 


1843 

07117 

3164 


DCA 


ETMP 

/SAVE FOR POSSIBLE ITERATION 

1644 

07120 

4760 


JMS 

I 

(CKOVFL 

/CHECK FOR NEW SEGFENT OVERFLOW 

1645 

07121 

7330 


AC4000 



1846 

07122 

4775 


JMS 

I 

(MREADC 

/WRITE OUT SEGMENT 

1647 

07123 

5757 


JMP 

I 

(RENTER 

/START ENTER OVER AGAIN 
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/ 08/8 

SUPPORT 

TASK 

FOR RTS-8 

PALS-V90 09/11/79 PAGE < 

14 

1648 

07124 

•000 

MSKIPF $ 0 


/ROUTINE TO SKIP TO END 

OP SEGMENT 

1844 

07125 

1776 

TAD I 

(DBUP 



1650 

07126 

3345 

OCA 

MNOPIL 



1851 

07127 

1361 

TAO 

(D800Y-1 



1652 

07130 

3016 

OCA 

XR 



1453 

07131 

3347 

OCA 

MEOCNT 

/KEEP RUNNING LE4STH ON 

THE MAY 

1654 

07132 

1416 

M3KPLP# TAO I 

XR 



1855 

07133 

7650 

SNA CIA 




1656 

07134 

3337 

JMP 

MEOMTY 



1857 

07135 

7346 

AC77T5 




1656 

07136 

4756 

JMS X 

(BUMPXR 

/BUMP PAST FILE NAME 


1859 

07137 

1416 

MEOMTYf TAO X 

XR 



1660 

07140 

1347 

TAO 

MEOCNT 



1861 

07141 

3347 

OCA 

MEOCNT 

/UPDATE LENGTH 


1662 

07142 

2345 

xsz 

MNOFIL 



1663 

07143 

5332 

JMP 

M8KPLP 



1664 

07144 

5724 

JHP X 

MSKXPF 



1665 







1666 

07145 

0000 

MNOPIL» 0 




1867 

07146 

0000 

MEFCNT, 0 




1668 

07147 

0000 

MEOCNT, 0 




1869 

07156 

6651 





1670 

07157 

6401 





1871 

07160 

6545 





1872 

07161 

7204 





1873 

07162 

0201 





1874 

07163 

6425 





1875 

07164 

7771 





1876 

07165 

6342 





1877 

07166 

0007 





1678 

07167 

6526 





1879 

07170 

7206 





1880 

07171 

7201 





1881 

07172 

6713 





1882 

07173 

6276 





1883 

0717a 

6343 





1884 

07175 

6310 





1885 

07176 

7200 





1886 

07177 

7202 





1887 


7200 

PAGE 
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/ OS/8 

SUPPORT 

TASK 

FOR RTS 

*8 

PAL8-V90 09/11/75 PAGE 45 



1888 

07200 

0000 

OBUF i 

0 

/DIRECTORY BUFFER • FIRST 

wo 

IF FILE CT 

1889 

07201 

0000 

OSTBLK, 

0 

/STARTING BLOCK F )R FILES 

IN 

THIS SEGMENT 

1890 

07202 

0000 

DUNK, 

0 

/LINK TO NEXT SEGMENT 



1891 

07205 

0000 

DOPTR, 

0 




1892 

07204 

0000 

oextra, 

0 

/NUMBER OF EXTRA <ORDS PER 

file entry 

1893 

07205 

0000 

0800 Y, 

Z8L0CK 373 

/BODY OF DIRECTOR * 



1894 




> 
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AC 

0146 

ENSEGL 

6403 

I0ST8 

5725 

NCOF01 

4672 

AC0002 

7326 

ensrcl 

6404 

IOT ASK 

6315 

NETWT 

0010 

AC2000 

7332 

enter 

6265 

IOTLST 

6050 

nfiles 

0163 

AC3777 

7350 

enterr 

6425 

IRBASE 

4620 

NMOVLP 

6475 

AC4000 

7330 

fcNTERX 

6400 

IRCNT 

5062 

NOCOF 

5412 

AC7775 

7346 

EORMwT 

0200 

IRENO 

4630 

NOCTRC 

5043 

AC7776 

7344 

EPTR 

0165 

IRGET 

5060 

NOFILE 

6233 

ARGS 

5721 

ETMP 

0164 

IRLEN 

0010 

NONRWT 

4000 

A8D0NE 

4240 

EXECUT 

4654 

IRPUT 

5061 

NONSTO 

5473 

ASNAM1 

4214 

fakeno 

4114 

17600 

5117 

NOPOST 

5625 

ASNAM2 

4215 

fakhnd 

4044 

JMPJMS 

5524 

NOROOM 

7000 

BLKARG 

0010 

fakisz 

7656 

JSBIT3 

7746 

NT ASKS 

0023 

BLOCK 

0160 

fakptr 

7655 

KBINT 

5025 

NXTFIL 

6634 

BUMPXR 

6651 

faksys 

7607 

KCCX 

6302 

OP 

4647 

CAL 

4020 

FAKT 

7654 

KRBX 

6306 

OSCDLO 

0271 

CHECKP 

0001 

faktao 

7645 

KRSX 

6304 

OSFILL 

0004 

ciflp 

5427 

FINI 

6234 

KSFEF 

5057 

osflds 

0002 

CINT 

6204 

FKHNDC 

4042 

KSFX 

6301 

03INIT 

4607 

CKINTL 

6000 

fkhndi 

4040 

LENGTH 

0161 

OSKBDV 

0030 

ckovfl 

6545 

FKHND2 

4041 

LINK 

0170 

0SK8ML 

7671 

CLKQLN 

0020 

flotbl 

5736 

LOOKUP 

6262 

OSSYSO 

0010 

CLKTYP 

0000 

fn 

6255 

LPBUF 

5356 

OSTTDV 

0031 

CLOCK 

0001 

fnuoso 

6015 

LPBUFC 

5357 

03USRL 

7723 

COMMAN 

0043 

free 

4000 

LPMESG 

6101 

OSS 

3023 

conlp 

6720 

F17 

7626 

LPT 

0004 

0S80CB 

7760 

CONSOL 

6713 

gefadr 

5443 

LPTBUF 

6106 

0S8F 

3020 

CS A 

0013 

GETFLD 

5727 

lptcnt 

0044 

OS8F0 

3030 

CSAF 

0014 

GOBACK 

4641 

LTA 

0006 

0S8F1 

3020 

CT 

6657 

GOBCKX 

5135 

L200 

4251 

0S8F2 

3030 

ctlchr 

5040 

NCALL 

5600 

MADOR 

6202 

0S8F3 

3020 

CUR 

0000 

HERTZ 

0170 

mbhalt 

4725 

0S8F4 

3030 

CUR2 

0000 

hghfld 

0030 

MCOF 

6257 

0S8F5 

3020 

DATE 

0040 

HNDLP 

6004 

MCR 

0005 

038F6 

9030 

OBLOCK 

6342 

hnuptr 

4257 

MCREF 

0041 

OSAF7 

3020 

OBODY 

7205 

hndret 

5132 

MCRSYS 

0001 

os6hno 

'647 

OBUF 

7200 

hnutab 

6030 

MDSRCH 

6600 

OWBASE 

1600 

OERAIL 

0007 

HPTR 

4260 

MOSRCL 

6603 

OWCNT 

5327 

OEXTRA 

7204 

HT ASK 

5702 

MECOMN 

7105 

OWGET 

>325 

OFSTUF 

5400 

HTBPTR 

4256 

MEFCOF 

6255 

owlen 

1)020 

0F32 

0012 

IBR 

5550 

MtFCNT 

7146 

OWPUT 

!>326 

OLINK 

7202 

IC8 

0016 

MELAST 

7055 

PARTBL 

420 

ONEMT 

0001 

ILIOLP 

5067 

MEOCNT 

7147 

PARTNS 

(1000 

OOPTR 

7203 

ILIOMS 

6153 

MEOMTY 

7137 

PC 

(1167 

DSTBLK 

7201 

ILLIOT 

5063 

MEOVLS 

6344 

PCIE 

(.667 

OTA 

0007 

1MOVHN 

4025 

mnufil 

7145 

PCPTLP 

5104 

DVNUM 

7653 

imovlp 

4007 

MOVEUP 

b526 

POCNT 

6341 

EAE 

0001 

INIHNL 

4200 

MKDCAT 

b276 

PDP12 

(1000 

EBLOCK 

6525 

INITOS 

4000 

MREAOC 

6310 

PDP8E 

(1001 

EF 

5227 

1N1WT 

0000 

MSGCOE 

6260 

PEMPTY 

6730 

EFWT 

2000 

ININT2 

0000 

MSGTBL 

1176 

PFAKSY 

4254 

EINRTS 

6447 

1NTLOK 

5726 

MSGWT 

0020 

PHNOTA 

4 253 

eleno 

6412 

IOCTLW 

6340 

MSKIPF 

7124 

PINITO 

4255 

EMPTY 

6427 

10MESS 

5716 

MSKPLP 

7132 

PINTLK 

6003 

ENABWT 

0040 

IOMSG 

6334 

MVLP1 

7012 

POSHN 

4252 

ENOGO 

6445 

10STAT 

6343 

MVLP2 

7110 

POST 

0 005 




s 
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POSTDS 

54S4 

TTXNT 

5278 

PRNTPC 

5B75 

TTY 

0003 

PSXE 

4445 

T7000 

5517 

P8KF 

4441 

UCDF 

0171 

PSKXPF 

4713 

UC IF 

0174 

FSLS 

4444 

UCIFX 

4405 

FT 

4453 

UIF 

■ 177 

FTN 

4440 

UNBAR6 

0012 

PTNANE 

B14S 

UNIT 

4537 

PURSE 

4441 

USCRMT 

0100 

PWRF 

BBSS 

WAITE 

0002 

PMRFAL 

0001 

WAXTH 

4425 
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4.05572 

751 



4.05573 

744 



4.05574 

733 



4.05575 

724 



4.05576 

710 

605 


4.05577 

717 

726 


4.05761 

939 



4:05762 

930 



4.05763 

915 



4.05764 

912 



4.05765 

690 



4.05766 

684 

666 


4.05767 

661 



4.05770 

676 



4.05771 

075 

909 


4.05772 

673 



4.05773 

666 



4.05774 

663 



4.05775 

861 



4.05776 

659 



4.05777 

656 



4.06174 

992 



4.06175 

966 



4.06176 

979 



4.06177 

978 



106364 

1474 



4.06365 

1473 



4.06366 

1462 



4.06367 

1457 



4.06370 

1453 



*06371 

1446 



4.06372 

1436 



4,06373 

1426 



106374 

1419 



4.06375 

1408 

1440 


4.06376 

1400 



4.06377 

1395 



4.06564 

1612 



406565 

1610 



406566 

1607 



406567 

1584 



406570 

1572 



406571 

1564 



408572 

1555 

1581 

1582 


665 


075 


164 







106573 

1548 

1562 

106374 

1524 

1587 

*06573 

1520 


*06576 

1510 

1549 

*06377 

1505 


*06764 

1745 


*06765 

1711 

1736 

*06766 

1705 


106767 

1686 


*06770 

1685 


106771 

1683 


*06772 

1681 


*06773 

1671 

1701 

*06774 

1665 


*06775 

1640 


*06776 

1632 

1716 

*06777 

1629 


107156 

1838 


107157 

1847 


107160 

1844 


*07161 

1834 

1831 

107162 

1832 


*07163 

1820 


*07164 

1816 

1824 

*07165 

1813 

1823 

107166 

1809 

1814 

*07167 

1800 

*07170 

1798 


*07171 

1788 

1790 

*07172 

1787 


*07173 

1766 


*07174 

1772 

1801 

*07175 

1769 

1822 

*07176 

1767 

1804 

107177 

1764 

1785 

*34170 

1099 


*34171 

1097 


*34172 

1068 


*34173 

1087 


*34174 

1066 


*34175 

1073 


134176 

1072 


*34177 

1071 

1074 

V3 




1576 


1709 


1086 1829 

1846 

1805 1810 1811 1825 

1*16 1817 1830 


1849 


/PARAMETERS FOR RTS»# TASKS (VERSION PAL8-V9D 09/11/75 PACE 1 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 
15 

36 

37 

38 

39 

40 

41 

42 

43 

44 


/PARAMETERS FOR RTS-8 TASKS (VERSION 2) 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT (C) 1974,1975 BY OIGITAl EQUIPMENT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/THE INFORMATION IN THIS DOCUMENT IS SUJJECT TO CHANCE WITHOUT NOTTCF 
"2! ”OULO NOT BE construed »S » COHNITHeSt B? OMItXl eWIMmE? 
/rOB P ?w! T J«A B « D J GITAL E0UIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT, 

^r2°! T rt?LJc S c!i BE L IN ™ IS MOMENT IS FURNISHED TO THE PURCHASER 
'UNDER iJ:. XC !I 8C F0 U8£ 0N A SINGLE COMPUTER SYSTEM ANO CAN BE COPIED 

/ivitFM 1 Etr?i? N *S F M?i G JI A b ,S C0PVRI6HT NOTICE) ONLY FOR USE IN 8UCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL, 

/ftR 6 Rl| A TAB?. U 5I2 E HI CORPORATION ASSUMES VO RESPONSIBILITY FOR THE USE 
/DIGITAL* 8111 ^ ° F ITS S0FTWm 0N E( 3UI>MENT THAT IS NOT SUPPLIED BY 
/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 




/PARAMETERS FOR RTS-6 TASKS 


(VERSION PALS-V9D It/It'7S PACE I 




65 

66 
6? 
66 

49 

50 

51 

52 

53 

54 

55 

56 
5? 
56 

59 

60 


0001 

0000 

0001 

0001 

0030 

0023 

0001 

0000 


/RTSS V2 EXEC PARAMETERS • EDITED BY JSER 

PDP8E-1 

POP12-0 

EAE-1 

PWRFAL-1 

HGHFLO-30 

NT ASKS-23 

CHECKPTil 

PARTNS-0 


/(THE N PARTITIONS ARK NUMBERED FROM 0 TO N-l) 


/COMMON TASK NUMBERS - EDITED BY USER 
/IT IS AOVISABLE TO DEFINE AU TASKS 1ERE, 


NAMES GIVEN BELOW 


61 


/LIST IF THE CORRESPOI 

62 



63 

0001 

CLOCK-1 

64 

0002 

PwRF-2 

65 

0003 

TTY-3 

66 

0004 

LPT-4 

67 

0005 

MCR-5 

66 

0006 

LTA-6 

69 

0007 

DTA-7 

70 

0021 

SWAPPER-21 

71 

0010 

RKS-10 

72 

0011 

RFB6-11 

73 

0012 

DF32-12 

74 

0013 

CSA-13 

75 

0014 

CSAF-14 

76 

0016 

ICS-16 

77 

0017 

RX6A-17 

78 

0023 

0S6-NTASKS 

79 

0020 

OS8F-20 

80 



61 


/SOFTWARE PARAMETERS . 

62 



63 


IFDEF 0S8 

64 

0002 

OSFLDS-2 

85 

0030 

OSKBDV-30 

86 

0031 

0STT0V-31 

67 

0010 

0SSYS0-RK6 

68 

0004 

OSFILL-4 

89 


> 

90 


IFDEF MCR 

91 

0001 

MCRSYS-1 

92 


> 

93 


IFDEF CLOCK 

94 

0000 

CLKTYP-0 

95 

0020 

CLKQLN-20 

96 


decimal 

97 

0170 

HERTZ-120 

98 

0074 

SHERTZ-60 

99 


OCTAL 




i 
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/PARAMETERS for RTS-8 TASKS (VERSION PAL8-V9D 09/11/75 PAGE 2»1 

100 > 

101 IFOEF SWAPPER « 

102 0010 SYS-RK8 

103 0000 SUNIT-0 

104 » 
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/PARAMETERS FOR RTS*S TASKS 


105 
116 
107 

106 

109 

110 
111 
112 

113 

114 

115 

116 
117 
116 

119 

120 
121 
122 

123 

124 

125 

126 
127 
126 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 


7344 

7346 

7330 

7350 

7332 

7326 


4020 

5424 

4425 


0000 

0001 

0002 

0003 

0004 

0005 

0006 

0007 

0010 

0011 

0012 

4000 


(VERSION PAL6-V9D 09/11/15 RACE 3 
/EQUIVALENCES! 

AC7776* CLL 8TA RAL 
AC7775* CLL STA RTL 
AC4000* CLA STL RAR 
ACJ777P CLL STA RAR 
AC2000P CLA STL RTR 
AC0002* CLA STL RTL 

/MONITOR CALL VALUES! 


CAL* JM8 
POSTDSp JMP I 
WAITMp JMS X 


SEND* 0 
RECEIV* 1 
WAXTEp 2 
RUN* 3 
SUSPNOp 4 
POSTp 5 
SKPXNSp 6 
DERAILP 7 
OLKARGb 10 
SENDNp 11 
UN0ARGP 12 
PREEp 4000 


20 

24 

25 


/CALL THE EXECUTIVE 
/0X8MISS AN XN M ERRUPT 
/WAIT FOR MULTIPLE EVENT! 


/noteI "•*• MEANS CRX"XCAL VALUE NAY NOT 

/0E CHANCED WITHOUT MODIFYING 0Y0TIM COOEU 

/SEND ME0SA0E 

/RECEIVE MESSAGE 

/WAIT FOR EVENT FLA0 

/CONTINUE TASK EXECUTION 

/SUSPEND TASK EXECUTION 

/POST AN EVENT FLAG 

/INSERT CODE INTO INTEI’RUPT SKIP CHAIN 
/INITIATE END-ACTION 

/0LOCK TASK FOR REASON SPECIFIED IN AR6 
/SEND MESSAGE ANO WAIT 

/UNSLOCK TASK FOR REASCN SPECIFIED IN ARB 
/••ERIE PARTITION 


IFDEF UDC «AOp0;OOPUOlP|fSO«SfECP4fRCP| 

DCP6fECTP7>ClPl0fOeT«ll»A!«lSP 


/TASK STATUS FLAGS! 


4000 NONRWT* 4000 
2000 EFNTf 2000 
1000 RUNWTP 1000 
0400 SWPWT- 0400 
0200 EORMWT* 0200 
0100 USERWTp 0100 
0040 ENABWT* 0040 
0020 M8CWTP 0020 
0010 NETWT* 0010 
0001 ONENTf 0001 


/••NONRESIDENT TASK WAIT 
/EVENT FLAG WAIT 
/SCHEDULE WAIT 
/••SWAPPER WAIT 
/EVENT FLAG OR MESSAGE WAIT 
/USER SPECIFIED WAIT 

/enable wait 

/MESSAGE WAIT 

/NETWORK WAIT (RESERVED FOR POSSIBLE FUTURE USE) 
/••DOES NOT EXIST WAIT 


/PARAMETERS FOR RTS-6 TASKS (VERSION PAL6-V9D 09/11/71 PAGE 4 


150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 


/SYSTEM LOCATIONS! 


1176 

1244 

1367 


1414 

1420 

0043 


MS6TBL- 1200-2 

TSTABL* NTASK8*2 v 2*MSGTBL-4 

TFTABLp NTASKS»2 ,, 4*TSTABL-1 


/TASK MESSAGE TABLE 
/TASK STATE TABLE • HOLDS 
/TASK LtNK,UM,DF,XF,PC,AC r MQ 
/TASK FI.AGS TABLE • HOLDS 
/TASK STATUS FLAGS 

/RESIDENCY TABLE 
/PARTITION TABLE 
/SWAPPER COMMAND SUFFER 


IFOEF SWAPPER « 

RESTBLP TFTABL*NTASK8*2 
PARTBL" NTASKS-SWAPPER*2*RE0TBL*SS7774 
COMMAND-43 


0035 

TSWFLG* 

35 

0036 

todl- 

36 

0037 

TODH« 

37 

0040 

OATE* 

40 

0041 

MCREF- 

41 


/TASK SH INHIBIT FLAG IN FIELD 0 
/LOW ORDER TIME OF OAY IN FIELD 0 
/HIGH ORDER TIME OF DAY IN FIELD 0 
/DATE IN OSS FORMAT IN FXELO 0 
/MCR START EVENT FLAG IN FIELD 0 





rts«s 


(VERSION PALS.WO 09/11/73 PACE « 


169 

171 

171 

171 

171 

174 

173 

176 

177 
176 
179 


/TASK TABLE SETUP • "TASK", 
/MUST BE DEFINED BY TASK I 


■CUR"#"ININT*, AND "START* 


G1IG4 

1104 




GIBB 

SBLOCK 1 

/MESSAGE 

BUFFER INITIALLY CLEAR 

B126B 

1I6Q 

*TASK"4tTSTABL 


0000 

CURS1GPCUR 

/INITIAL 

FLAGS 

01161 

34GB 

START 



01161 

00GB 

B 

/INITIAL 

AC B 


1171 



01171 

GBGG 

XNXNT 






171 


/3 TTY DRIVER TASK FOR RTSS VI 


PALSWVO 09/11/71 FADE 6 


1S0 

isi 

ist 

183 

184 
183 
186 

187 

188 

189 

190 

191 
191 

193 

194 
193 

196 

197 

198 

199 

200 
281 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 
223 


4«AU0«7B 


/3 TTY DRIVER TASK FOR RTSS VI 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT (C) 197* BY 0X8ITAL EQUIPMENT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

'IS INFORMATION in TMIS DOCUMENT IS SUBJECT TO CMAN8E NITMOUT NOTICE 
,i22.!2?2b2 N0T 11 C °N*TRUEO AS a COMMITMENT BY DIGITAL EQUIPMENT 
'£2!'°? AT I2 N Z DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT, 

^ T 2L! 0fT "i!! 0eiC * 1B CD IN TMIS DOCUMENT IS FURNISHED TO THE PURCHASER 
f 2* U,C 0N A HNBLE COMPUTER SYSTEM AND CAN BE COPIED 
,i!IJU N Sb2!I£ N 2 F iXQ I TA t #i COPYRIGHT NOTICE) only for use in such 
/SYSTEM, EXCEPT AS MAY OTHERNISE BE PROVIDED IN WRITING BY DIGITAL, 

y2i 6 iI, A bJ!25!! E 2I ;S!*2 MTX0N A8iUMM NC RESPONSIBILITY FOR THE USE 
^2!*?!b XA,XLXTV 0r XTt ,0fT N A W ON EQUIPMENT THAT IS NOT SUPPLIED BY 
/OXGXTAL, 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

✓ 

/ 

/ 
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n TTY DRIVER TASK FOR RTSS Vt 


PALS-VtD S9/tl/’4 RARE 7 


224 

225 
22 $ 

227 

228 

229 
210 
231 
112 

233 

234 

235 
23$ 
2J7 

230 

239 
140 

241 

242 

243 

244 

245 
24$ 
247 

240 

249 
210 

251 

252 

253 

254 

255 
25$ 
257 

250 
239 
2$0 
2$1 
282 


/l. 

/ 2 . 

/3, 

/4, 

/•• 

/$t 

/7, 


FCATURC0 AODCO RV S,R, ON i$«JHL*79l 
CTRL/S, CTRl/Q 

12I2!i! IC C * /LF AFTW m WDTitwucmo cusu so cole) 

RC«fCHOXN0 OF FROHFT LINES ON CERL/U 

et8!*u A M”* * UMUT "* * eon »•"«»*« 

TAB OPTIONf* 

FILL OPTION 


/ 4-AU0.75I eONOINCO I* «L0 TTY I4NDL0* 

'TASK RATA CLOCK I 

0000 CUN* • 

0000 HUlrfr'-OL 

XFNOfF KBOCV 4 

Rooevi os 

TTDEVt 0$ 

TtllMV 


0003 


$031 KlfXi 
$032 KCCX9 
$034 KRSX* 
$03$ KRBX* 

$041 T0FX« 
$042 TCFX9 
$045 TEKXt 
$04$ TL0X4 


CON0OL «CON00L"t» 
CONOOL «TA|Xt TTY$ 
TA0K 4TA0K0 |0$ 
VT90 4VT50vl$ 

SCOPE «0COPEH» 

PILL 4FZLLV0R 
NXOTN «NXOTH»i20» 

TAO 0tA0i0$ 

OLOTTV 4OLOTTV«0$ 

KBDEV*10+$001 
KBOEV*1046002 
KODEV*10+0004 
KBDEV*10+$00$ 

TTDEV*10+$0O| 

TTDVV"!0+0002 

TTOeV*10+$009 /RDP S/E ONLY 
TTDEV*l0+$00$ 


/OERAULT Z0 CON0OLE 

50°0 NUH0ER FOR TE0TXN0 

iSl 12 ! !! tf™ * kH7 f§ ' •* FEATURE 

iffLlS i lP W thH 00 * 0ACRBRACE 

IBfiUrM CH ‘"‘ eT "‘ * r ™ 

* ** ' IF TTY MAf NARONARE TAB0 

TO 0ET OLD VERBION | TTY TA0K 


/lit TO I 
I I 


/BET TO 


. * 
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/3 TTY ORXVER TASK FOR RT00 V2 


PAL0.V9D 09/11/71. PACE 0 


263 

264 

265 

266 
267 
2$S 

269 

270 

271 

272 
271 
2T4 

27 f 

2Y$ 

277 

2Y0 

2T» 

200 

281 

282 

281 

204 

285 

28$ 


AN0 L,Nli °* character 

/0TRXNSS ON A TELETYRE, THE XNRUT AND Ol'TRUT DEVICE CODES OF 

A !S. !I°E V I XF TM| F *EAHETER "CONSOL* XI NOT OEFXNED TO 
/BE ZEROf THE TELETYRE IS A00UNED TO BE THE CONSOLE TELETVRE 
/AND HILL INVOKE THE NCR WHENEVER *C IS TYRED ON XT, 

/THE FORHAT OF TTY ORXVER HESBA0CS ARE! 


/NORD 1 
/WORDS 2.3 
/WORD 4 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/WORD 5 
/WORD $ 


BIT 0 

SIT l 
IXT 2 

SIT 3 

BIT 4 

BITS 5*11 


USED AS EVENT FLAB FOR FSBSAGE 

USED BY RTS»S 

FLA00 WORO - FLA0S AREI 

0WFACKEO OUTPUT MESSAGE, IpUNPACKED 

09RUT CRIF AFTER HESSA0E, 1*D0 NOT 

* t "°*° *• " 0UT ' UT Hts ' m 

09XNRUT IS LINE ORXENTEO# WITH EDXTXNO 
i , £5S-I- k X * C0UWT oi, I*NTED W/O EDITING OR ECHOING 
0PPERFORH I/O INDICATED BY OTHER BITS 
19ASSXGN TTY DRIVER TO TASK IN SITS 5.11 

CHARS IN XNRUT BUFFER (0 MEANS 409$) 

OR TASK TO ASSIGN DRIVER TO (IF BIT 4«1) 
i F NO XNRUT ■ ELSE POINTS AT XNRUT BUFFER 

OUTRUT HE0SASE OR ROINTER TO ME0SA0E 


174 




j y/r ■ *,;• 


/S TTY DRIVER TASK FOR RTSS V| 


RALl.VtO •t/tl/11 RAH f 


1ST 




XFZERO OLSTTY • 

ISO 






ts« 


•••• 


fxels gurus 

ITS 


340* 


• 34SS 


HI 



HEVFLS, 



IT! 

SS4SS 

4SIB 

START, 

CAL 


ITS 

034*1 

•SSS 

FLAWS, 

SARINS 


IT4 

• S4SI 

SS44 

HALF, 

TTIH? 


ITS 




XFZCRS 

RORCP 

ITS 




CAL 


ITT 




SRFIN8 


ITS 




RSXNT 


ITT 




6 


SSS 

SS4SS 

1316 

tthslf, 

TAD 

ASSURE 

SSI 

•S404 

4SIS 


CAL 


SSI 

0S4SS 

•SSI 


RSCSIV 


sss 

• 3406 

•••• 

NAOSR, 

• 


ISA 

•3407 

SS61 


OCA 

MSSCOF 

SSS 

0S41S 

7346 


ACTTTf 


SSS 

03411 

1106 


TAB 

HAOOR 

SS7 

•3411 

32B0 


SCA 

HEVFLS 

SSS 

SS41S 

4360 


JHS 

CDFHSS 

30T 

• 3414 

16B6 


TAO I 

MASH 

310 

•S41S 

3101 


OCA 

FLAWS 

311 

•3416 

1206 


ISZ 

HASSR 

312 

•3417 

1606 


TAD I 

HAOOR 

313 

•S42S 

3317 


OCA 

REFLVY 

314 

03411 

1206 


xsi 

HAOOR 

SIS 

•3411 

12*1 


TAD 

FLASS 

S16 

•3423 

•377 


AND 

(IBS 

SIT 

•3424 

7640 


SZA CLA 


31S 

•3423 

S312 


4HF 

ASSIGN 

SIT 

•3426 

1IS1 


TAD 

flaws 

SIS 

•3427 

7SS6 


RTL 


SI1 

•3430 

77IS 


•HA CLA 


322 

• 3431 

SI34 


JMF 

• ♦3 

S23 

•3432 

1606 


TAD X 

MADDR 

324 

•3433 

3206 


DCA 

HAOOR 

SIS 

•3434 

1206 

CTRLUI, 

TAD 

MADSR 

316 

•3435 

3320 


DCA 

SAVM 

SIT 

•3436 

724B 


•TA 


316 

03437 

3202 


DCA 

half 


/•NUT A | 


I MIR CHAIN CNTRT ON S/E 



/SET ACISNEE (If ACT) 

/TAKE THE HESSIIE ORR THE I 
/HTS AtCRESS V NESS ACE 

/FXELfrOF MSB IN AC 

/•ATE MESSAGE ITINT RLAS AOORESS 

/FIRST NORO OF 'SSSASS It FtASS 

/ID RCRO OF NEC USE SO AOORCSS FOR 
/RERLY FROM KSt (S IF NCCE WANTED) 


/SS THIS AN ASS ION CALtt 
KIN 


TTY TO ililCER 


/YES • JUST ASSt 

/SIT IMS OF FltS NORO XNOttATES 
/IF MESS ASS SR "OSNtER TO IT ROLLONS 


/initialize ler vrxght snitch 


ITS 


/3 TTY 


SIT 



/LOOP TO UNPACK 

ANO OUT 

330 







331 

03440 

4360 

TTOLP, 

JHS 


C0FMS6 

332 

03441 

1201 


TAD 


FLASS 

333 

03442 

7710 


•FA 

CLA 

334 

• 3443 

3267 


JMF 


ONEFWD 

33S 

03444 

2202 


ISZ 


half 

336 

• 3445 

3253 


JMF 


RSHTHF 

337 

• 3446 

7344 


AC7776 


33* 

• 3447 

3202 


DCA 


half 

SIT 

•3450 

1720 


TAD 

X 

SAVM 

340 

•3451 

Till 


CLL 

RTR 


341 

• 3452 

7012 


RTR 



342 

03453 

7012 


RTR 



343 

• 3454 

3137 


JMF 


• ♦3 

344 

•3455 

1720 

RGHTMP, 

TAD 

X 

SAVM 

345 

03456 

2320 


xsz 


SAVM 

346 

• 3457 

• 376 


ANS 


(77 

347 

• 3460 

7450 


SNA 


346 

03461 

3273 


JMF 


CKCRLF 

349 

• 3462 

1375 


TAO 


(240 

336 

03463 

•376 


ANO 


(77 

351 

03464 

1375 


TAB 


(I4S 

352 

• 3465 

4774 

OUTCH, 

JHS 

X 

CTTOUTR 

353 

354 

355 

• 3466 

S24S 


JMF 


TTSLF 

• 3467 

1720 

ONEFWD, 

TAB 

X 

SAVM 

356 

•3470 

2320 


xsz 


SAVM 

317 

•3471 

7440 


SZA 



356 

•3472 

3263 


JMF 


OUTCH 

35T 

• 3473 

1201 

CKCRLF, 

TAD 


FLASS 

36B 

•3474 

7**4 


RAL 



361 

•3473 

77M 


SHA 

CLA 


362 

•3476 

4773 

CTRLU, 

JHS 

I 

CCRLP 

363 

•3477 

1317 


TAO 


REPLYY 

364 

03300 

7440 


SZA 



365 

•3501 

1772 


JMF 

X 

(E0HES8 

366 

•3502 

6211 

EORFLY, 

CDF 

CUR 


367 

03503 

1361 


TAO 


MSBCSP 

361 

• 3504 

3310 


DCA 


HF 

36T 

035B5 

12*0 


TAD 


HEVFLS 

37B 

• 3506 

4*20 


CAL 



371 

03SB7 

0005 


FOST 


372 

• 3510 

•■00 

HF, 

• 



373 

03511 

5203 


JMF 


TTMSLP 

374 







375 

•3512 

1101 

ASSIGN, 

TAD 


FLAGS 

376 

03513 

•376 


AND 


(77 

377 

• 3514 

3316 


OCA 


ASGNEE 

376 

*3315 

5302 


JMF 


EORFLY 

379 






sse 

•3516 

•••• 

AS6NEE, 

S 



3S1 

03517 

• ■•• 

REPLYY, 

• 



362 

■ 3520 

•••0 

SAVM, 

• 




PALS»VTO 09/11/71 RASE IS 


/•XT • IF FLA6 NO TELLS WHETHER 
/HESSASE IS RACKED OR UNRACKSO ASCII 
/FACKES • WHICH WALFf 


/CONVERT SXXBXT TO ASCII 


/•XT I OF FLASS FELLS WHETHER 
/TO FOLLOW HESSAIIE BY A CR/LF 


/XS THERE XNFUT ItESUXREDT 
/YES • SO SET XT 

/HERE XF NO XNPU” OR XF XNRUT FINISHED 


/FOST THE SENDER'S EVENT FLAS 
/SO HE’LL KNOW HI! SOT HIS XNFUT 

/NNNNNNNNNNNNNNNIINNNEXTI 


/SET TASK NUHBER 
/SAVE AS ASSIQNEI* TASK 

/TASK A8SX8NHENT ■ 0 MEANS UNASSIGNED 
/ADDRESS OF REFL1 SUFFER (XF ANY) 


176 






/3 TTY ORXVER TASK FOR RTSS V2 


383 

384 
3S5 
384 
387 
3S8 

389 

390 

391 

392 

393 

394 
393 

396 

397 

398 

399 

400 

401 

402 

403 

404 
403 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 
410 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 


PALB.V9D 
/LOW-LEVEL TTY OUTPUT CODE 


•9/11/73 PACE 11 


03521 

03522 

03523 

03324 

03523 

03526 

03527 

03530 

03531 

03532 

03533 

03534 

03535 

03536 

03537 

03540 

03541 

03342 

03543 


0000 

3360 

6201 

1771 

0370 

1367 

7650 

5721 

4020 

0002 

4020 

4020 

0002 

3557 

2357 

1360 

6046 

7200 

3721 


TTOUT, 


PTTOEV, 


03544 0000 TTXNT, 


03546 

03547 

03350 

03551 

03532 

03553 

03554 

03555 

03556 


6045 

5744 

6203 

6041 
5766 

6202 

6042 
1336 
5424 


03537 0000 TTOEV, 


03362 5760 

03566 4000 

03567 7761 

03570 0177 

03571 3716 

03572 3600 

03573 4042 

03574 4051 

03575 0240 

03376 0077 

03577 0200 

3600 


COFMSO 

(INCH 

(177 

(-17 


0 

OCA 

CDF CUR 
TAO X 
AND 
TAO 

SNA CIA 
JMP X 
IFNZRO VT50« 
CAL 
WAITE 
XOFP 
» 

CAL 
WAITE 
TTOEV 


XSZ 

TTOEV 

TAD 

CDFMSG 

TLSX 


CLA 


JMP X 

TTOUT 

ZBLOCK 

2 

IPZERO 

P0P8E 

IFNZRO 

POPSE 

JMP X 

TTXNT 

CDF CXF 

CUR 

IFNZRO 

PDP8E 

TSFX 


JMP X 

(KBINT 

6 


CIF B 


TCFX 


TAO 

PTTOEV 

P08TD8 


0 


0 


HLT 


JMP I 

CDFMSG 


/QET THE LAST CH<R TYPED ON THE KEYBOARD 
/STRIP OFF PARITY 
/WAS XT "Of 


TTOUT /YES • OON*T PRINT NOTHIN 


/WAIT FOR XON 

/WAIT FOR LAST CHAR TO FXNX3H 

/SET TTY BUSY (XV AOVANCE) 

/SET CHAR 
/OUT WITH XT| 

/CL(E)ACN) UP 

/USED FOR LXNKXNB INTO SKIP CHAIN 
«T3FX» 

4TSKX6 /CHECK FOIf KEYBOARD OR PRINTER 


/WHICH ONEt 
/KEYBOARD 


/POST "TTY COMPLETE" EVENT FLAB 


/3 TTV 

ORIVER 

TASK 

FOR RT8I 

1 V2 

P 

437 

438 



/INPUT 

REPLY FROM KEVBO 

439 

03600 

3315 

EOMESS, 

DC A 

reply 

440 

03601 

6201 


CDF CUR 


441 

03602 

1777 


TAO I 

(FLAGS 

442 

03603 

0376 


AND 

(177 

443 

03604 

7041 


CIA 


444 

03605 

3262 

RPLYL1, 

OCA 

INPCNT 

445 

03606 

4020 

RPLYLP, 

CAL 


446 

03607 

0002 


WAITE 


447 

03610 

4041 


TTIEV 


448 

03611 

2773 


XSZ I 

(TTIEV 

449 

03612 

1777 


TAD X 

(FLAGS 

450 

03613 

4774 


JMS I 

(CDFMSG 

451 

03614 

0373 


AND 

(400 

452 

03615 

7640 


8ZA CLA 


453 

03616 

5310 


JMP 

NOEDIT 

454 

03617 

1316 


TAD 

INCH 

453 

03620 

0376 


AND 

(177 

456 

03621 

1372 


TAD 

(200 

457 

03622 

3715 


DCA I 

REPLY 

458 

03623 

1715 


TAD I 

REPLY 

459 

03624 

0376 


AND 

(177 

460 

03625 

7440 


8ZA 


461 

03626 

1371 


TAD 

(-17 

462 

03627 

7450 


SNA 


463 

03630 

5206 


JMP 

RPLYLP 

464 

03631 

1370 


TAD 

(17.176 

465 

03632 

7540 


SMA SZA 


466 

03633 

5263 


JMP 

RUBOUT 

467 

03634 

7440 


SZA 


468 

03635 

7001 


I AC 


469 

03636 

7440 


SZA 


470 

03637 

1367 


TAD 

(173.33 

471 

03640 

7450 


SNA 


472 

03641 

5301 


JMP 

ALTMOD 

473 

03642 

1366 


TAD 

(33.15 

474 

03643 

7450 


SNA 


473 

03644 

5305 


JMP 

CARRET 

476 

03645 

6201 


COF CUR 


477 

03646 

1365 


TAD 

(15.25 

478 

03647 

7650 


SNA CLA 


479 

03630 

5317 


JMP 

CTU 

480 

03651 

2262 


ISZ 

INPCNT 

481 

03652 

5253 


JMP 

,♦3 

482 

03633 

7240 


8TA 


483 

03654 

5205 


JMP 

RPLYL1 

484 

03655 

4774 


JMS I 

(CDFMSG 

485 

03656 

1715 


TAD I 

REPLY 

486 

03657 

4764 


JMS I 

(TTOUTR 

487 

03660 

2315 

NEXTCH, 

ISZ 

REPLY 

488 

489 

03661 

5206 


JMP 

RPLYLP 

490 

03662 

0000 

INPCNT, 

0 



PAL8.V9D 09/11/75 >A6E 12 
ARO 

/SAVE REPLY BUFFER POINTER IN THIS PAGE 

/GET LOW ORDER BXTU OF FLAG WORD 
/SET INPUT CHAR COUNT 

/WAIT FOR KEYBOARD STRIKE 
/IMMEDIATELY SET EVENT FLAG AGAIN 

/ARE WE EDITING XNf UTf 

/NO • JUST TAKE XT AS IT COMES 

/STRIP PARITY BIT 
/NOW FORCE XT BACK IN 
/SAVE CHAR IN REPLT MESSAGE 

/AND OUT GOES THE PARITY BIT (AGAIN) 

/IGNORE NULL AND *C 


/X • 176 GT 0 • X MUST BE 177 

/CHECK FOR 3 FLAVORS OF ALTMODE 

/ALT MODE IS SPECIAL END-OF.LINE DELIMITER 

/IS THE CHAR A CARRIAGE RETURNT 


/*U? 

/YES 

/IS THERE ROOM IN THE BUFFERT 
/YES 

/NO • KEEP IT FULL 

/GET THE CHAR 
/ECHO IT 
/BUMP POINTER 
/CONTINUE 


178 





/3 TTY ORIVER TASK FOR RTSS V2 


PALS-V9D 09/11/7!! PA0E 19 


ATI 

492 


/SPECIAL CHARACTER PROCESSING 


4T3 

03663 

6201 

RUSOUT, 

CDF 

CUR 


494 

S3664 

1763 


TAD 

I 

CREPLYY 

495 

03665 

7041 


CIA 



496 

03666 

1315 


TAD 


REPLY 

497 

03667 

7710 


SPA 

CLA 


498 

03670 

5206 


JMP 


RPLYLP 

499 




IPZERO 

SCOPE « 

5S0 

03671 

1362 


TAD 


C334 

SSI 

01672 

4764 


JMS 

I 

CTTOUTR 

502 




6 



5SS 




XPNZRO 

SCOPE 4 

584 




JMS 

I 

(BACK 

5SS 




» 



506 

03673 

7240 


STA 



507 

03674 

1315 


TAD 


reply 

506 

03675 

3315 


DCA 


REPLY 

509 

01676 

7240 


STA 



510 

03677 

1262 


TAD 


INPCNT 

511 

03780 

5205 


JMP 


RPLYL1 

512 







513 

03701 

1361 

altmod, 

TAD 


(44 

514 

03702 

4764 


JMS 

I 

(TTOUTR 

515 

037S3 

7240 


STA 



516 

517 

03704 

4774 


JMS 

I 

(CDFMS6 

51S 

03705 

3715 

CARRET, 

DCA 

X 

REPLY 

519 

03706 

4760 


JMS 

I 

(CRLF 

520 

03707 

5757 


JMP 

X 

(EORPLV 

521 







522 

03710 

1316 

NOEDXT, 

TAO 


INCH 

523 

03711 

3715 


DCA 

I 

REPLY 

524 

03712 

2262 


xsz 


INPCNT 

525 

03713 

5260 


JMP 


NEXTCM 

526 

03714 

5757 


JMP 

I 

(EORPLV 


/ARE ME AT THE HE8XNNXN6 
/OP THE REPLY U NET 
/YES 


A BACKSLASH 


/DO BACKUP 


/BUMP THE POINTER SACK ONE 
/REMEMBER TO INCREASE THE COUNT| 


/PUT SPECIAL DELIMITER IN MESSAGE 


/SET THE LAST CHAR IN THE MESSAGE 


/NO PARITY, NO E0XTXN8, NO ECHOING 

/IP CONSOLES, THIS MOOE CAN 

/BE USED TO REAO BINARY PAPER TAPES 


/3 TTY DRIVER TASK FOR RTSS V2 


527 

03715 

0000 

REPLY, 

0 



528 

03716 

0000 

INCH, 

0 



529 







530 

03717 

1356 

CTU, 

TAD 


C* 

531 

03720 

4764 


JMS 

I 

(TTOUTR 

532 

03721 

1355 


TAO 


( M U 

533 

03722 

4764 


JMS 

I 

(TTOUTR 

534 

03723 

1777 


TAO 

I 

(FLAGS 

535 

03724 

7106 


CLL 

RTL 


536 

03725 

7620 


SNl 

CLA 


537 

03726 

5754 


JMP 

I 

(CTRLU 

538 

03727 

4760 


JMS 

I 

(CRLF 

539 

03730 

5753 


JMP 

I 

(CTRLU2 

540 

03753 

3434 





541 

03754 

3476 





542 

03755 

0325 





543 

03756 

0336 





544 

03757 

3502 





545 

03760 

4042 





546 

03761 

0044 





547 

03762 

0334 





548 

03763 

3517 





549 

03764 

4051 





550 

03765 

7770 





551 

03766 

0016 





552 

03767 

0142 





553 

03770 

7621 





554 

03771 

7761 





555 

03772 

0200 





556 

03773 

0400 





557 

03774 

3560 





558 

03775 

4041 





559 

03776 

0177 





560 

03777 

3401 





561 


4000 


PAGE 




PALS-VfD 09/11/75 PAGE 14 


/IF BIT 1 IS ON, WANT TO REPROMPT 






t 


'* TT, D'!«. T«K fOR RTS. V, ,AL..„D ,*« 

/KEYBOARD INPUT INTERRUPT ROUTINE ANO STORAGE 


562 

563 

564 

565 

566 

567 
56a 

569 

570 

571 

572 

573 

574 

575 

576 

577 
576 
579 
560 
581 

562 

563 

564 

565 

586 

587 

568 

589 

590 

591 

592 

593 

594 

595 

596 

597 
596 

599 

600 
601 




KBINT, IFZERO 

PDPSE 



ZBLOCK 

2 



K3FX 




JMP I 

KBINT 



CDF CIF CUR 

04000 

6036 

9 

KRBX 


04001 

3777 

OCA I 

(INCH 



IFZERO 

VT5B < 



IFNZRO 

CONSOL 



TAO I 

(INCH 



AND 

(177 



TAD 

(-3 



SNA CLA 



JMP 

» 

GETMCR 



» 

IFNZRO 

VTS0 4 

04002 

1777 

TAD I 

(INCH 

04003 

0376 

AND 

(177 



IFNZRO 

CONSOL < 

04004 

1375 

TAD 

(*j__ 

04005 

7450 

SNA 


04006 

5233 

JMP 

GETMCR 

04007 

1374 

TAD 

(3.23 



IFZERO CONSOL « 



TAD 

(•23 

04010 

7450 

SNA 


04011 

5221 

JMP 

CTRLS 

04012 

1373 

TAD 

(23-21 

04013 

7650 

SNA CLA 


04014 

5225 

JMP 

CTRLQ 

04015 

6202 

CIF 0 


04016 

1372 

TAO 

(TTIEV 

04017 

5424 

P08TD8 



/FOR LINKING INTO SKIP CHAIN 


/READ CHARACTER ANO CLEAR FLAG 


/CHECK FOR "C 1 YPEO 

/YES • SET "MCP REQUESTED" EVENT FLAG 


/CHECK FOR m C 
/REQUEST MCR 06 CTRL/C 
/NOW CHECK FOR CTRL/8 


/*S TYPED CXOFF) 

/•q TYPED CXON) 

/POST "KEY STRUCK" EVENT FLAG 


afacA f<Z 
tc ^ 3 , 
tv =3> U t 


ftG> C £>£ f CU AJ KL HKJC p 

l i 3 u < b } (P y c*> 'f tis >r / { 


/cP r 5 



<V2 

K i lb l\ 1 ^ 





181 


/3 TTY 

602 

603 

604 

605 

606 

607 

608 

609 

610 
611 
612 

613 

614 

615 

616 
617 
616 

619 

620 
621 
622 

623 

624 

625 

626 
627 
626 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 


DRIVER TASK FOR RTS6 V2 





IFNZRO 

VT50 « 

04020 

0000 

XOFF, 

0 


04021 

7201 

CTRLS, 

CLA IAC 


04022 

3220 


OCA 

XOFF 

04023 

6202 


CIF 0 


04024 

5434 


POSTDS 


04025 

1241 

CTRLQ, 

TAD 

TTIEV 

04026 

7650 


SNA CLA 


04027 

2241 


ISZ 

TTIEV 

04030 

6202 


CIF 0 


04031 

1371 


TAD 

(XOFF 

04032 

5424 


POSTOS 





IFNZRO 

CONSOL 

04033 

1241 

GETMCR, 

TAD 

TTIEV 

04034 

7650 


SNA CLA 


04035 

2241 


ISZ 

TTIEV 

04036 

6203 


CDF CIF 

0 

04037 

1370 


TAD 

(MCREF 

04040 

5424 


POSTOS 

> 


04041 

0001 

TTIEV, 

1 





IFNZRO SCOPE " 



BACK, 

0 





TAD 

(10 




JMS I 

(T TOUT 




TAD 

(240 




JMS I 

(TTOUT 




tad 

(10 




JMS I 

(TTOUT 




8TA 





TAD 

COLCNT 




SMA 





DCA 

COLCNT 




CLA 





JMP I 

BACK 


PAL8-V9D 09/11/7'.; PA6E 16 


/0 MEANS CAN PR! NT 

/I MEANS PRINT INHIBITED DUE TO "S 

/INHIBIT PRINTIPG 
/DISMISS, NO FLAGS POSTED 


/POST RESUME TYPING EVENT FLAG 
« 

/*c WILL delete anything which 
/IS CURRENTLY in the tty buffer 
/BY SETTING THE EVENT FLAG NON-ZERO 
/THE MCR IS STARTED UP (IF QUIESCENT) BY 
/POSTING THE MCR EVENT FLAG IN PAGE 0 
/OF FIELD 0, 


/KEYBOARD NOT STRUCK INITIALLY 


/BACKSPACE 
/PRINT SPACE 
/BACKSPACE AGAIN 


/CAN'T RUBOUT PAJT COLUMN 1 
/MOVE BACK ONE COLUMN 
/CLEAR AC 
/RETURN 



645 

646 

647 
646 

649 

650 

651 

652 

653 

654 

655 

656 


04042 0000 CRLP, 

04043 1367 

04044 4766 

04045 1365 

04046 4766 


04047 3277 

04050 5642 


0 


TAD 

(215 


JMS I 

(TTOUT 


TAD 

(212 


JMS I 

(TTOUT 


IFZERO 

FILL-164000 

"JMS 

IFZERO 

FILL-264000 

"JMS 

IFZERO 

FILL-364000 

"JMS 

IFZERO 

FILL-464000 

"JMS 

IFZERO 

FILL-564000 

"JMS 

DCA 

COLCNT 

JMP I 

crlf 



(TTOUT)* 

CTTOUTk 

(TTOUT)' 

(TTOUT)- 

(TTOUT>- 


1 8c 






/3 TTY DRIVE* TASK FOR RTSS V2 


RALS.VSD 09/11/75 RASE 17 


657 04051 

058 04052 

659 04053 

660 04054 

661 04055 

662 04056 

663 04057 

664 04060 

665 04061 

666 04062 

667 04063 

668 04064 

669 04065 

670 04066 

671 04067 

672 04070 

673 04071 

674 04072 

675 04073 

676 04074 

677 04075 

678 04076 

679 

680 04077 

681 04100 

682 04101 

683 

684 04102 

685 04103 

686 04104 

687 04105 

688 04106 

689 04107 

690 04110 

691 04111 

692 04112 

693 

694 04113 


0000 

TTOUTR 

3301 


1301 


0376 


1364 


7450 


9275 


1361 


7650 


5314 


2277 

DOO, 

1277 

8ND, 

7100 


1300 


7430 


4302 


7200 


1301 


4766 


5651 


3277 

ITSCR, 

5263 


0000 

COLCNT 

7657 

WITH, 

0000 

TEH, 

0000 

newl, 

3313 


4762 


1313 


7640 


1361 


7001 


3277 


5702 


0000 

XTRA, 


0 


DCA 


TEN 

TAD 


TEN 

AND 


(177 

TAD 


(•15 

SNA 



JMR 


XTSCR 

TAD 


(15.11 

SNA 

CLA 


JMR 


TABS 

xsz 


COLCNT 

TAD 


COLCNT 

CLL 



TAD 


WXTH 

8ZL 



JM8 


NEWL 

CLA 



TAD 


TEH 

JM8 

X 

(TTOUT 

JMR 

X 

TTOUTR 

DCA 


COLCNT 

JMR 


DOO 

0 



•WIDTH.1 

0 



0 



DCA 


XTRA 

JMS 

X 

CCRLF 

TAD 


XTRA 

SZA 

CLA 


TAD 


(7 

I AC 



DCA 


COLCNT 

JMR 

X 

NEWL 


0 


/SAVE CHAR 

/7-IXT 
/IS XT CRT 

/XT'S A CR 

/XS XT A TABT 
/YES 

/AT END OF COIUHNT 


/AT LAST COLUFNt (DON'T CLEAR AC) 
/YES, 00 EXTRJ CR/LF 

/NO 

/ACTUALLY TYRE CHARACTER 
/RETURN 


/XF LAST CHAR HAS TAB 

/SET XNXT COL TO ISf OTHERWISE 1 


183 


/3 TTY 

DRIVER 

TASK 

FOR RTSS 

V2 



693 




XFNZRO 

TAB « 

696 



TABS, 

TAD 


COLCNT 

697 




AND 


(7770 

698 




TAD 


(10 

699 




DCA 


COLCNT 

700 




JMP 


SND 

701 




> 



702 







703 




XFZERO 

TAB < 

704 

04114 

2277 

TASS, 

XSZ 


COLCNT 

705 

04115 

1277 


TAD 


COLCNT 

706 

04116 

1300 


TAD 


WITH 

707 

04117 

7650 


SNA 

CLA 


708 

04120 

5330 


JMR 

EO 

709 

04121 

1360 


TAD 


(" 

710 

94122 

4766 


JMS 

X 

(TTOUT 

711 

04123 

1277 


TAD 


COLCNT 

712 

94124 

0361 


ANO 


(7 

713 

04125 

7640 


SZA 

CLA 

714 

04126 

5314 


JMR 


TABS 

715 

04127 

5651 


JMR 

X 

TTOUTR 

716 

04130 

4762 

EO, 

JMS 

X 

(crlf 

717 

94131 

5651 


JMP 

X 

TTOUTR 

718 




» 



719 

94160 

9249 





720 

04161 

0907 





721 

04162 

4042 





722 

04163 

0004 





723 

04164 

7763 





724 

04165 

U212 





725 

04166 

3521 





726 

04167 

0215 





727 

04170 

0041 





728 

04171 

4020 





729 

04172 

4041 





730 

04173 

0002 





731 

04174 

7760 





732 

04175 

7775 





733 

04176 

0177 





734 

04177 

3716 





735 


4200 


RAGE 



736 







737 



> 





PALS«VfD 09/11/VS RASE IS 

/CO TO NEXT TAI STOR 


/SIMULATE WXTH BRACES 
/UNTIL THE NEX1 TAB STOR 



184 






PAL6-V9D 09/11/73 PAGE 19 


/3 TTY DRIVER TASK FOR RTSS VS 


738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

730 

731 

732 
753 
734 
753 
736 
757 

738 

739 

760 

761 

762 

763 

764 
763 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 


mevflg, 

•TART, 

FLAGS, 

half, 


xfnzro OLOTTY « 

HELD CURX10 
*3000 


CAL 

SKPXNS 

TTXNT 

IFZERO 

CAL 

SKPXNS 

K0XNT 


POP0E 


tthslp, tao 

CAL 

RECEZV 
MADDR, 0 

DCA 

AC7773 
TAD 
DCA 
JMS 
TAD X 
DCA 
X8Z 
TAD X 
OCA 

xsz 

TAD 
AND 

SZA CLA 
JMP ASSIGN 
TAO FLAGS 

RTL 

SNA CLA 
JHP 

TAD I MADDR 
DCA MAODR 

STA 

DCA HALF 


/ONLY VEKD 1 SKIP CHAIN ENTRY ON l/E 


ASGNEE /GET AtXGNEE (IF ANY) 


MS0CDF 

MADDR 

MEVFLG 

CDFMSG 

MAODR 

FLAGS 

MADDR 

MADDR 

REPLVV 

MADDR 

FLAGS 

(200 


/TAKE THE MESSAGE OFF THE Q 
/GETS ADDRESS )F MESSAGE 

/FIELD OF MSG IN AC 

/SAVE MESSAGE 'VENT FLAG ADDRESS 

/FIRST WORD OF MESSAGE IS FLAGS 

/2D WORD OF MESSAGE IS ADDRESS FOR 
/REPLY FROM KOI) (0 IF NONE WANTED) 

/IS THIS AN AS.MXON CALL! 

/YES ■ JUST ASSIGN TTY TO SENDER 


/GIT 1000 OF FLAG WORD XN0XCATE8 
/IF MESSA6E OR POINTER TO XT FOLLOWS 


/INITIALIZE LEIT/RX6HT SWITCH 


/3 TTY DRIVER TASK FOR RTSS V2 


778 

779 

/LOOP TO UNPACK 

; AND OU 1 

780 

TTOLP, JMS 

CDFMSG 

781 

TAO 

FLAGS 

782 

SPA CLA 

783 

JMP 

ONEPWD 

76« 

ISZ 

HALF 

785 

JMP 

RGHTHF 

786 

AC7776 


787 

DCA 

half 

788 

TAD I 

MAODR 

789 

CLL RTR 


790 

RTR 


791 

RTR 


792 

JMP 

• ♦3 

793 

RGHTHF, TAD I 

MADOR 

794 

ISZ 

MAODR 

795 

AND 

(77 

796 

SNA 


797 

JMP 

CKCRLF 

798 

TAD 

(240 

799 

AND 

(77 

800 

TAO 

(240 

801 

OUTCH, JMS 

TTOUT 

802 

JMP 

TTOLP 

803 



804 

ONEPWD, TAD I 

MAODR 

805 

ISZ 

MAODR 

806 

SZA 


807 

JMP 

OUTCH 

808 

CKCRLF, TAO 

FLAGS 

809 

RAL 


810 

SMA CLA 


811 

CTRLU, JMS 

CRLP 

812 

TAD 

REPLYY 

613 

SZA 


614 

JMP I 

(EOMESS 

815 

EORPLV, CDF CUR 


816 

TAO 

MSGCDF 

817 

DCA 

MF 

618 

TAD 

MEVFLG 

819 

CAL 


820 

POST 


621 

MF, 0 


822 

JMP 

TTM8LP 

623 



824 

ASSIGN, TAO 

FLAGS 

625 

AND 

(77 

626 

OCA 

ASGNEE 

627 

626 

JMP 

EORPLY 

629 

ASGNEE, 0 


830 

REPLYY, 0 



PAL8.V9D 09/11/7 S PAGE 20 


/BIT 0 IF FLAG <0 TELLS WHETHER 
/MESSAGE IS PAC (ED OR UNPACKED ASCII 
/PACKED - WHICH HALF! 


/CONVERT SIXBIT TO ASCII 


/BIT 1 OF FLAGS TELLS WHETHER 
/TO FOLLOW MESSAGE BY A CR/LP 

/IS THERE INPUT REQUIRED? 

/YES • GO GET XT 

/HERE IF NO INPUT OR IF INPUT FINISHED 


/POST THE SENDER'S EVENT FLAG 
/SO HE'LL KNOW ME GOT HIS INPUT 

/NNNNNNNNNNNNNNMNNNNEXTi 


/GET TASK NUMBER 
/SAVE AS ASSIGNED TASK 


/TASK ASSIGNMENT • 0 MEANS UNASSIGNED 
/ADDRESS OF REPLY BUFFER (IF ANY) 


186 






/3 TTY DRIVER TASK FOR RTSS V| 


S3 J 

/LOW-LEVEL TTY OUTPUT ( 

632 




633 

TTOUT, 

0 


634 


OCA 

CDFM8G 

833 


CDF CUR 


636 


TAD X 

(INCH 

837 


AND 

(ITT 

636 


TAO 

(•IT 

639 


SNA CLA 


840 


JMP X 

TTOUT 

641 


CAL 


642 


WAITE 


643 

PTTOEV, 

TTOEV 


844 


xsz 

TTOEV 

643 


TAD 

CDFMSG 

646 


TLSX 


64? 


CLA 


646 


JMP X 

TTOUT 

649 




630 

CRLPi 

0 


631 


TAD 

(215 

632 


JM8 

TTOUT 

S33 


TAD 

(212 

654 


JMS 

TTOUT 

635 


JMP X 

CRLP 

636 




857 

TTXNT, 

ZBLOCK 

2 

656 


XFZERO 

PDPSE 

659 


XFNZRO 

POPSE 

660 


JMP I 

TTXNT 

861 


COP CXF 

CUR 

862 


XFNZRO 

PDPSE 

663 


TSFX 


664 


JMP I 

(KBINT 

865 


fr 


666 


CXF « 


667 


TCFX 


666 


TAD 

PTTOEV 

669 


P0STD8 


670 




671 

TTOEV, 

• 


672 




873 

CDFMSGf 

0 


874 

M8GC0P , 

HLT 


875 


JMP I 

COFMSG 

876 


PAGE 



PALS-V9D 19/11/73 RASE II 


/SET THE LAST CHAR TVREO ON THE KEYBOARO 
/STRIP OFF PAI'XTY 
/WAS XT »OT 

/YES • DON'T IRXNT NOTHIN 

/WAXT FOR LAS1 CHAR TO PXNXSH 

/SET TTY SUSY CXN ADVANCE) 

/GET CHAR 
/OUT NXTH XT| 

/CL(E)A(N) UF 


/USED FOR LXNKXNO INTO 8KXF CHAIN 
«T8FXP 

«TSKX» /CHECK FOR KEYSOARD OR PRINTER 


/WHICH ONET 
/KEYSOARO 


/POST "TTY COMPLETE" EVENT FLAG 


/3 TTY DRIVER TASK FOR RTSS VI 


677 

676 

/INPUT REPLY FROM KEY0O, 

879 

EOMESSf OCA 


REPLY 

680 

CDF 

CUR 


661 

TAD 

I 

(FLAGS 

662 

AND 


(177 

663 

CIA 



864 

RPLYL1, OCA 


INPCNT 

865 

RPLYLP, CAL 



666 

WAITE 


687 

PTTIEV. TTXEV 


666 

XSZ 


TTXEV 

669 

TAO 

I 

(FLAGS 

690 

JMS 

I 

(COFMSG 

891 

AND 


(400 

692 

SZA 

CLA 


693 

JMP 


NOEOXT 

894 

TAD 


INCH 

493 

AND 


(177 

896 

TAD 


(200 

897 

OCA 

I 

REPLY 

696 

TAD 

I 

REPLY 

899 

AND 


(177 

900 

SZA 



901 

TAD 


(•IT 

962 

SNA 



903 

JMP 


RPLYLP 

904 

TAD 


(17-176 

905 

8MA 

SZA 


906 

JMP 


RUB0UT 

907 

SZA 



908 

I AC 



909 

SZA 



910 

TAD 


(173-33 

911 

SNA 



912 

JMP 


ALTMOD 

913 

TAD 


(33-15 

914 

SNA 



915 

JMP 


CARRET 

916 

CDF 

CUR 


917 

TAD 


(15-25 

918 

SNA 

CLA 


919 

JMP 

I 

(CTRLU 

920 

xsz 


INPCNT 

921 

JMP 


.♦3 

922 

STA 



923 

JMP 


RPLYL1 

924 

JMS 

I 

(COFMSG 

925 

TAD 

I 

REPLY 

926 

JMS 

I 

(TTOUT 

927 

NEXTCH, ISZ 


REPLY 

926 

JMP 


RPLYLP 

929 




930 

INPCNT, 0 




PAL8-V9D 09/1l/"3 PAGE 22 
kRD 

/SAVE REPLY BUI PER POINTER IN THIS PAGE 

/GET LOW OROER SITS OF FLAG WORD 
/SET INPUT CHAI COUNT 


/WAIT FOR KEYBIARD STRIKE 
/IMMEDIATELY SIT EVENT FLAG AGAIN 


/ARE WE EDITXNC INPUT? 

/NO • JUST TAKI IT AS IT COMES 

/STRIP PARITY I XT 
/NOW FORCE IT IACK IN 
/SAVE CHAR IN PEPLY MESSAGE 

/AND OUT GOES 1 HE PARITY SIT (AGAIN) 

/IGNORE NULL AAO *0 


/X • ITS GT 0 • X MUST BE ITT 


/ALT MODE IS SPECIAL END-OP-LXNE DELIMITER 
/IS THE CHAR A CARRIAGE RETURN? 


/*U? 

/YES 

/IS THERE ROOM IN THE BUFFER? 
/YES 

/NO • KEEP IT FJLL 

/GET THE CHAR 
/ECHO IT 
/BUMP POINTER 
/CONTINUE 


186 






/S TTY DRIVER TASK FOR RTSS VI 


PAL8*V9D B9/U/7! RASE 23 


Ml 

932 

933 

934 

935 

936 

937 
936 

939 

940 

941 

942 

943 

944 
943 

946 

947 

948 

949 

930 

931 
952 

933 

934 

935 

936 

937 

938 

959 

960 

961 


/SPECIAL CHARACTER PROCESSING 
RUBOUT, CDF CUR 



TAD 

X 

(REPLYY 


CIA 




TAD 


REPLY 


SPA 

CLA 



JMP 


RPLYLP 


TAD 


(334 


JMS 

I 

(TTOUT 


STA 




TAO 


REPLY 


DCA 


REPLY 


STA 




TAD 


INPCNT 


JMP 


RPLYLt 

ALTMOO# 

TAD 


(44 


JMS 

X 

(TTOUT 


STA 




JMS 

I 

(CDFMS6 

CARRET, 

DCA 

I 

REPLY 


JMS 

X 

(CRLF 


JMP 

I 

(EORPLY 

NOEDIT# 

TAD 


INCH 


OCA 

X 

REPLY 


xsz 


INPCNT 


JMP 


NEXTCH 


JMP 

I 

(EORPLY 


/ARC ME AT THE BEGINNING 
/OF THE REPLY LINEf 
/YES 

/OUTPUT A BACKSLASH 


/BUMP THE POINTER BACK ONE 
/REMEMBER TO INCREASE THE COUNT! 


/ECHO ALT MODE AS S 

/PUT SPECIAL DELIMITER IN MESSAGE 


/SET THE LAST CHAR IN THE MESSAGE 


/NO PARITY# NO EDITING# NO ECHOING 


/3 TTY DRIVER TASK FOR RTSS V2 


962 

963 

/KEYBOARD INPUT 

INTERR 

964 

KBXNT| 

IFZERO 

P0P8E 

965 


ZBLOCK 

2 

966 


KSFX 


967 


JMP I 

KBINT 

966 


CDF CIF 

CUR 

969 


» 


970 


KRBX 


971 


DCA 

INCH 

972 


IFNZRO 

CONSOL 

973 


TAO 

INCH 

974 


AND 

(177 

973 


TAD 

(•3 

976 


SNA CLA 


977 


JMP 

GETMCR 

978 


» 


979 


CIF 0 


960 


TAD 

PTTIEV 

981 


P08TDS 


982 




983 


IFNZRO 

CONSOL 

964 

GETMCR# 

TAD 

TTIEV 

985 


SNA CLA 


986 


ISZ 

TTIEV 

987 


CDF CIF 

0 

988 


TAD 

(MCREF 

989 


P0STD8 


990 


» 


991 




992 

REPLY, 

0 


993 

INCH, 

0 


994 

TTIEV, 

1 


993 


PAGE 


996 




997 

> 



998 




999 


SS8 



PAL8-V90 09/11/75 PAGE 26 


/FOR LINKING INTO SKIP CHAIN 


/READ CHARACTER AND CLEAR FLAG 


/CHECK FOR «C TYPED 

/YES • SET "MCR REQUESTED" EVENT FLAG 


/POST "KEY STRUCK 1 EVENT FLAG 
« 

/"C MILL DELETE ANYTHING WHICH 
/IS CURRENTLY IN THE TTY BUFFER 
/BY SETTING THE E/ENT FLAG NON-ZERO 
/THE MCR IS START ED UP (IF QUIESCENT) BY 
/POSTING THE MCR EVENT FLAG IN PAGE 0 
/OF FIELD 0, 


/KEYBOARD NOT 8TRJCK INITIALLY 


190 





/3 TTY 

DRIVER 

TASK FOR RTSS V2 


P/ 

AC0002 

7321 

KIOEV 

0003 

SAVM 

35 

AC20O0 

7332 

KBINT 

4000 

SCOPE 

00 

AC3777 

7350 

KCCX 

6032 

SENO 

00 

AC40M 

7330 

KR0X 

6036 

8ENDM 

00 

AC7775 

7346 

KR8X 

6034 

SHERTZ 

00 

AC7776 

7344 

K8PX 

6031 

SKPXNS 

00 

ALTMOD 

3701 

LPT 

0004 

8N0 

40 

ASGNEE 

3516 

LTA 

0006 

START 

34 

ASSIGN 

3512 

maddr 

3406 

SUNXT 

00 

ILKARC 

0010 

MCR 

0005 

8U8PND 

00 

CAL 

4020 

MCREF 

0041 

SWAPPE 

00 

GARRET 

3705 

MCR8Y8 

0001 

SNPWT 

04 

CDFMSG 

3560 

hevflg 

3400 

SYS 

00 

CHECKP 

0001 

MF 

3510 

TA0 

00 

CKCRLP 

3473 

HSGCDP 

3561 

TAOB 

41 

CLKQLN 

0020 

msgtbl 

1176 

TASK 

00 

CLKTYP 

0000 

might 

0020 

TCPX 

60 

CLOCK 

0001 

netwt 

0010 

TEN 

41 

COLCNT 

4077 

newl 

4102 

TFTA0L 

13 

COMHAN 

0043 

NEXTCH 

3660 

tlsx 

60 

CONSOL 

0001 

NOEDXT 

3710 

TODH 

00 

CRIP 

4042 

NONRNT 

4000 

TOOL 

00 

CSA 

0013 

NTA8K8 

0023 

TSFX 

60 

C8AP 

0014 

olotty 

0000 

TSKX 

60 

CTRL8 

4025 

onephd 

3467 

T8TA0L 

12 

CTRL3 

4021 

osfxll 

0004 

tshflg 

00 

CTRLU 

3476 

OSFLDS 

0002 

TTDEV 

00 

ctrluj 

3434 

oskbdv 

0030 

TTXEV 

40 

CTU 

3717 

08SY8D 

0010 

TTINT 

35 

CUR 

0000 

OSTTOV 

0031 

TTM8LP 

34 

DATE 

0040 

OSS 

0023 

TTOEV 

35 

DERAIL 

0007 

08SF 

0020 

TTOLP 

34 

0P32 

0012 

OUTCH 

3465 

TTOUT 

35 

ONEHT 

0001 

PARTBL 

1420 

TTOUTR 

40 

DOO 

4063 

PARTNS 

0000 

TTY 

00 

OTA 

0007 

PDP12 

0000 

UN0ARG 

00 

EAE 

0001 

PDPSE 

MSI 

USERMT 

01 

EFWT 

2000 

POST 

0005 

VT50 

00 

ENABWT 

0040 

POSTOS 

5424 

WAITE 

00 

EO 

4130 

PTTOEV 

3536 

WAXTH 

44 

EOMESS 

3600 

PNRF 

0002 

WIDTH 

01 

EORMWT 

0200 

pwrfal 

0001 

WITH 

41 

EORPLY 

3502 

RECEXV 

0001 

XOFF 

40 

FILL 

0000 

REPLY 

3715 

XTRA 

41 

flags 

3401 

REPLYY 

3517 



FREE 

4000 

RESTBL 

1414 



GETMCR 

4033 

RF00 

Mil 



half 

3402 

rghthf 

3455 



HERTZ 

0170 

RKS 

0010 



HGHFLD 

0030 

Rplylp 

3606 



ICS 

0016 

pplyli 

3605 



INCH 

3716 

RU0OUT 

3663 



INIWT 

0000 

RUN 

0003 



INPCNT 

3662 

runnt 

1000 



ITSCR 

4075 

RXSA 

0017 




PAL8-V9D 09/11/75 PACE 15 


\ 




191 



ERRORS DETECTED! 0 
LINKS GENERATED! 0 



192 









1 1 2# 





ini 




». V7* 

1 i 0* 




AC4fK^ 

109# 




*C7?75 

106# 

305 

756 


iC7~7ts 

107# 

337 

786 


AiT*ro 

472 

513 

912 

940# 

ac 

135# 




ASSNEf 

300 

377 

360 

751 

I88T6N 

318 

375 

769 

824# 

0*e* 

504 

630# 

642 



130# 




CU 

116# 

292 

296 

301 


752 

619 

841 

665 

CAHRIT 

475 

516 

915 

953# 

COF*86 

306 

311 

366 

402 


760 

834 

845 

673# 

CnCCKP 

54# 




CKC41F 

348 

359 

797 

606# 

CLKQLN 

95# 




CLKTYP 

94# 




CLOCK 

63# 

93 



COICNT 

636 

640 

655 

667 


704 

705 

711 


COMMAN 

160# 




CONSOL 

244# 

244 

245 

573 

CRLF 

362 

319 

536 

645 


954 




CS 

136# 




CSA 

74# 




C8AF 

75# 




CT 

136# 




CTRLQ 

597 

611# 



CTRL8 

594 

606# 



CTRLU 

362 

537 

811# 

919 

CTRLU2 

325# 

539 



CTU 

479 

330# 



CUR 

175 

175 

236# 

269 


568 

740 

615 

835 

DATE 

166# 




DERAIL 

129# 




DF32 

73# 




ONEWT 

149# 




DOO 

667# 

676 



DTA 

69# 




EAE 

50# 




EFWT 

141# 




ENABNT 

146# 




EO 

708 

716# 



EOMESS 

365 

439 

614 

879# 

EORMWT 

144# 




EORPLv 

366 

378 

520 

526 

FILL 

249# 

249 

650 

651 

FLAGS 

293 

310 

315 

319 


744# 

761 

766 

770 

FREE 

133# 




GETMCR 

576 

567 

619 

977 

HALF 

294 

328 

335 

338 

HERTZ 

97# 





626 

019# 





370 

394 

390 

441 

741 

747 

423 

#15 

450 

404 

516 

759 

075 

890 

924 

911 


666 

677 

6600 

691 

196 

699 

564 

590 

616 

97* 

163 


656 

666 

716 

011 

1500 

655 


366 

307 

411 

440 

176 493 

661 

660 

916 

933 

)66 


615# 

65* 

827 

653 

955 

654 

961 


332 

359 

375 

441 

449 

781 

806 

624 

661 

669 

964# 

745# 

777 

764 

707 



HGHFLD 

52# 

ICS 

76# 

INCH 

368 

971 

INIWT 

179 

INPCNT 

444 

ITSCR 

663 

KBDEV 

240 

KBINT 

298 

KCCX 

255# 

KRBX 

257# 

KRSX 

256# 

KSFX 

254# 

LPT 

66# 

LTA 

68# 

MAODR 

303 

757 

804 

MCR 

67# 

MCREF 

167# 

MCR8YS 

91# 

MEVFLG 

291 

HF 

368 

M3GCDF 

304 

MSGTBL 

152# 

MSGWT 

147# 

NETWT 

146# 

NEWL 

672 

NEXTCH 

467 

NOEDIT 

453 

NTA8KS 

53# 

OLOTTY 

252# 

ONEPWD 

334 

03FILL 

88# 

03FL0S 

84# 

03KBDV 

85# 

03SY3D 

87# 

03TTDV 

66# 

036 

78# 

036F 

79# 

OUTCH 

352 

PARTBL 

159# 

PARTNS 

55# 

PDP12 

49# 

PDP8E 

48# 

964 

POST 

127# 

P03TD3 

117# 

PTTIEV 

687# 

PTTOEV 

400 

PWRF 

64# 

PWRPAL 

51# 

RECEIV 

123# 

REPLY 

439 

527 

958 

REPLYV 

313 

RE3TBL 

156# 

RF0B 

72# 

RGHTHF 

336 


454 522 528 

973 9931 

239# 

488 490 510 

677# 

241* 254 255 

414 564 567 

570 970 

566 966 


306 309 311 

760 762 763 

805 

90 

623 986 

307 369 742# 

372 017 621# 

367 424 755 

153 172 


684# 692 


525 

927# 

960 

522 

693 

957# 

76 

153 

155 

252 

287 

736 

355 

783 

604# 


83 


358 

601# 607 


295 

408 

409 

371 

820 


419 

980 

601 

609 

416 

643# 

868 

302 

753 


457 

458 

405 

879 

992# 

897 

898 

363 

159 

361 

494 

344 

785 

7931 


571 

574 

58* 

524 

664 

920 

256 

257 


749 

864 

964* 


312 

314 

323 

765 

774 

775 

750 

016 


816 

874# 


156 

159 



412 

564 

746 

616 

624 

669 


487 496 507 

925 927 936 

764 612 630# 


636 

694 

957 

930# 

945 

959 

967 



324 

768 

325 

793 

754# 

794 


656 859 662 

981 989 

508 516 523 

942 943 953 

934 




RK6 

71# 

• 7 

182 






RPLYLP 

445 

463 

466 

456 

• 65# 

503 

526 

531 

RPLYL1 

444 

483 

511 

864# 

523 

546 



RUI0U7 

466 

453 

506 

533# 






RUN 1*5# 
RUNWT 142# 
RX8A 77# 


SAVM 

326 

339 

344 

345 

355 

356 

382# 




SCOPE 

241# 

246 

499 

503 

6*9 






SEND 

122# 










SENDW 

131# 










SHERTZ 

56# 










3KPIN3 

126# 

293 

*97 

744 

74* 






8ND 

666# 

760 









3TAR7 

176 

292 

743# 








SUNZT 

103# 










8U8PN0 

126# 










SWAPPE 

70# 

101 

157 

159 







8WPWT 

143# 









SYS 

102# 










TAi 

251# 

251 

695 

70S 







TABS 

666 

696 

704# 

714 







TASK 

172 

174 

176 

245 

246# 

246 





TCFX 

260# 

417 

•67 








TEN 

656 

659 

674 

662# 







tptabl 

155# 

156 

176 








TLSX 

262# 

403 

• 46 








TOOH 

165# 










TOOL 

164# 










tsfx 

259# 

466 

413 

•56 

663 






TSKX 

261# 

•09 

•59 








TSTA0L 

153# 

155 

174 








TSWPLG 

163# 










TTOEV 

242# 

259 

260 

261 

262 






TTIEV 

447 

446 

660 

611 

613 

619 

611 

6*7 

887 

•88 


964 

966 

994# 






TTINT 

294 

407 

410 

745 

857# 

660 





TTMSUP 

300 

373 

751# 

6*2 







TTOEV 

406 

401 

421 

• 43 

•44 

•71# 





TTOlP 

331 

353 

760# 

•02 







TTOUT 

365 

392 

405 

632 

634 

636 

647 

649 

650 

651 


652 

653 

654 

675 

710 

• 01 

• 33# 

840 

848 

85* 


854 

926 

940 

949 






TTOUTR 

352 

486 

501 

514 

531 

533 

657# 

676 

715 

717 

TTY 

65# 

245 







UOC 

135 










UNBAR6 

132# 










USERWT 

145# 










VT50 

247# 

247 

393 

57* 

561 

602 





WAITE 

124# 

395 

399 

446 

642 

• •6 





WAITM 

116# 










WIDTH 

250# 

256 

6«1 








WITH 

670 

661# 

706 








XOFF 

396 

603# 

607 

615 







XTRA 

665 

667 

694# 









^03566 414 
A 03567 350 
103570 3*5 
103571 366 
j.03572 365 


155 


,4.03573 

362 



103574 

352 



103575 

349 

351 


j.03576 

346 

350 

376 

.4.0357 7 

316 



.4.03753 

539 



.4.03754 

537 



4.03755 

532 



103756 

530 



103757 

520 

526 


4.03760 

519 

538 


4.03761 

513 



4.03762 

500 



103763 

494 



4.03764 

486 

501 

514 

4.03765 

477 



4.03766 

473 



103767 

470 



103770 

464 



4,037 71 

461 



4.03772 

456 



4.03773 

451 



4.03774 

450 

464 

516 

4.03775 

448 



4.03776 

442 

455 

459 

x 03777 

441 

449 

534 

4.04160 

709 



4,04 l 6 1 

669 

712 


4.04162 

666 

716 


4.04163 

664 



4.04164 

661 



4.04163 

646 



4.04166 

647 

649 

675 

4.04167 

646 



.04170 

623 



104171 

615 



104172 

600 



4,04173 

595 



104174 

586 



104175 

585 



4.04176 

583 

660 


104177 

571 

562 


V3 





I 
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/PARAMETERS FOR RT3»S TASKS (VERSION PAL8-V9D 09/11/'5 RASE 1 


1 

2 

3 

a 

5 

6 
T 
S 
9 

10 

11 

12 

13 

14 

15 

16 
IT 
18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 


(VERSION 2) 


/PARAMETERS POR RTS-8 TASKS 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT (C) 1974,1975 BY DIGITAL IQUIPNENT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

'!*!: i!!nm R n\ T i2 N .i N THIS D0CUH * N T I® StSJECT TO CHAN8E WITHOUT NOTICE 
° T «!*,J? N8 I RUeD AS A COMMITMENT BY OIGITAL EQUIPMENT 
irSi P ?SJ T J2^ B< , OI6ITAL eq UIFMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT, 

inl2npS 0 A T , W J!5^Jf # ElI lBEO IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
J W r. X n5?SS £2 0N A 3IN6 *- C COMPUTER SYSTEM AND CAN BE COPIED 

yJtllJlL 1 2t22I2 N 0F DIGITAl -'® COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL, 

S2! p 2!iI ION ASSUMM **o aeaPONSiBiLiTv FOR THE USE 

'2?,?! L , IABIUTV 0F 1TS ®°P Tw *®t ON EQUIPMENT THAT IS NOT SUPPLIED BY 
/DIGITAL, 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


/PARAMETERS FOR RTS-8 TASKS 


(VERSION PAL8-V9D 09/11/7! PAGE 2 


45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 


/RTS8 V2 EXEC PARAMETERS - EDITED BY USER 

0001 PDP8E-1 
0000 POP 12»0 
0001 E AE«1 
0001 PwHFALPl 
0030 HGHFLO*30 
0023 NTASKSb23 
0001 CHECKPT»1 
0000 PARTNS-0 

/(THE N PARTITIONS ARE NUMBERED FROM 0 TO N-l) 
/COMMON TASK NUMBERS • EDITED BY USER 

/IT IS ADVISABLE TO OEFINE ALL TASKS HERE, NAMES GIVEN BELOW 
^ A ?L U !£° BV S0Mt 8VSTEM TASKS AND SHOUL3 BE OELETEO FROM THIS 
/LIST IF THE CORRESPONDING TASK IS NOT INCLUDED IN THE SYSTEM 


63 

0001 

CLOCK■1 


64 

0002 

PwRF»2 


65 

0003 

TTY«3 


66 

0004 

LPT»4 


67 

0005 

MCR«5 


68 

0006 

LTA«6 


69 

0007 

DTA-7 


70 

0021 

SWAPPER«2l 


71 

0010 

RK 8 * 1 0 


72 

0011 

RF08*11 


73 

0012 

0F32"12 


74 

0013 

CSA.13 


75 

0014 

CS A F * 14 


76 

0016 

ICS«16 


77 

0017 

M X 8 A ■ 1 7 


78 

0023 

OSSbNTASKS 


79 

0020 

OS8F*20 


80 




81 


/SOFTWARE PARAMETERS 

82 




83 


IFDEF 

058 

84 

0002 

OSFLOS«2 


85 

0030 

OSKBDVB30 


86 

0031 

OSTTOV-31 


87 

0010 

0SSYSD*RK8 


88 

0004 

OSFILL-4 


89 


> 


90 


IFDEF 

NCR 

91 

0001 

MCRSYS*1 


92 


> 


93 


IFDEF 

CLOCK 

94 

0000 

CLKTYP«0 


95 

0020 

CLKQLN>20 


96 


DECIMAL 


97 

0170 

HERTZ«120 


98 

0074 

SHERTZ*60 


99 


OCTAL 



EDITED BY USER 
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/PARAMETER! FOR RTMS TASK! 


(VERIZON PALMV'O 19/11/79 RACE !•! 


Ill 

101 

Ifll 

IBS 

114 


ZPOER 

••10 SYltRK! 

•••• IUNZTiB 


SNARRCR 4 
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/PARAMETERS POR RTS-8 TASKS 


(VERSION PAL8-V9D •9/11/75 PAGE S 


105 

108 

107 

7344 

/EQUIVALENCES! 

AC7776* CLL STA 

RAL 

108 

7346 

AC7775* 

CLL STA 

RTL 

109 

7330 

AC4000B 

CLA STL 

RAR 

110 

7350 

AC3777* 

CLL STA 

RAR 

111 

7332 

AC2000> 

CLA STL 

RTR 

112 

US 

114 

7326 

AC0002* 

CLA STL 

rtl 


/MONITOR CALL VALUES! 

115 

116 

4020 

CAL* 

JMS 

20 /CALL THE EXECUTIVE 

117 

5424 

POSTOS* 

JMP I 

24 /DISMISS AN INTERRJPT 

118 

4425 

WAITMb 

JMS I 

25 /WAIT POR MULTIPLE EVENTS 

119 

120 

121 

122 

0000 

SEND* 

0 

/NOTE! "•*« MEANS CRITICA. VALUE MAY NOT 
/BE CHANGEO WITHOUT MODIFY (NG SYSTEM CODEU 
/SEND MESSAGE 

123 

• 001 

RECEIV* 

l 

/RECEIVE MESSAGE 

124 

0002 

WAITE- 

2 

/WAIT FOR EVENT FLAG 

125 

0003 

RUN* 

3 

/CONTINUE TASK EXECUTION 

126 

0004 

SUSPNQ- 

4 

/SUSPEND TASK EXECUTION 

127 

0005 

POST* 

5 

/POST AN EVENT FLAG 

128 

0006 

SKPINS- 

6 

/INSERT CODE INTO INTERRUP” SKIP CHAIN 

129 

0007 

DERAIL- 

7 

/INITIATE END-ACTION 

130 

0010 

blkarg* 

10 

/•LOCK TASK FOR REASON SPECIFIED IN ARC 

131 

0011 

SENDW- 

11 

/SEND MESSAGE AND WAIT 

132 

0012 

UNBARG- 

12 

/UNBLOCK TASK FOR REASON BI'ECIFIEO IN ARG 

133 

4000 

FREE* 

4000 

/••FREE PARTITION 

13« 

135 

136 

137 

138 


IPDEF UDC -AO-0;DO-HDI-2jGCi 3>EC-4|RC-5 

DC-A|ECT»7|C3»10!D( T-11|AI-12» 

/TASK STATUS FLAGS! 

139 

H0 

4000 

NONRWT- 

4000 

/••NONRESIDENT TASK WAIT 

iai 

2000 

EFWT ■ 

2000 

/EVENT FLAG WAIT 

142 

100B 

runwt- 

1000 

/SCHEDULE WAIT 

143 

0400 

SWPWT- 

0400 

/••SWAPPER WAIT 

144 

0200 

EORMWT* 

0200 

/EVENT FLAG OR MESSAGE WAIT 

145 

0100 

USERWT■ 

0100 

/USER SPECIFIED WAIT 

146 

0040 

ENABWT- 

0040 

/ENABLE WAIT 

147 

0020 

MfGWT- 

0020 

/MESSAGE WAIT 

148 

0010 

NETwT- 

0010 

/NETWORK WAIT (RESERVED FCR POSSIBLE FUTURE USE) 

149 

0001 

DNEWT* 

0001 

/••DOES NOT EXIST WAIT 
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/PARAMETERS FOR RTS-S TASKS 


(VERSION PAL8-V90 B9/U/11 PAGE A 


150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
161 

163 

164 

165 

166 

167 

168 


/SYSTEM LOCATIONS! 

1176 MSGTBLi 1208-2 

1244 T8TABL* NTA8K8*2"2*MSGTBl.4 

1367 TFTABlP NTASK342«4*TSTABL»1 


IFDCF SWAPPER < 

1414 RE8TBLP TFTABLPNTA8KS92 

1420 PARTBLf NTA8K8-3WAPPER" , 2*RE8TBL*3477T4 

0043 COMMAN0«43 


/TASK MESSAGE TABLE 
/TASK STATE TABLE • HOLDS 
/TASK lINKfUM*DP*iPfPC*AC*MQ 
/TASK FLAB8 TABLE ■ HOLDS 
/TASK STATUS FLAGS 


/RESIDENCY TABLE 
/PARTITION TABLE 
/SNAPPER COMMAND BUFFER 


0035 

TSWFLG* 

35 

0036 

TOOL" 

36 

0037 

TOOHf 

37 

0040 

DATE- 

40 

0041 

MCREF- 

41 


/TASK SW INHIBIT FLAG IN FIELD B 
/LOW ORDER TIME OF DAY IN FIELD B 
/HIGH ORDER TIME OF DAY IN FIELD B 
/DATE IN OSS FORMAT IN FIELD B 
/MCR START EVENT FLAG IN FIELD B 
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/PARAMETERS FOR RTS-8 TASKS (VERSION PALS-V9D 09/11/7! PAGE 5 


169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 


/TASK TABLE SETUP • "TASK", "CUR","INIHI», AND "START" 
/MUST BE OEFINEO BY TASK I 



1214 

*TASK"2*MSGTBL 

01214 

0000 

ZBLOCK 2 


1300 

*TASK*4pTSTABI 

01300 

0011 

CURX109CUR 

01301 

4600 

START 

01302 

0000 

0 


1376 

*TASK*TFTABL 

01376 

0000 

ININT 


/MESSAGE BUFFER INITIALLY CLEAR 
/INITIAL FLAGS 
/INITIAL AC B 




/TCBS DRIVER FOR RT8I V2 


PALS-VSO 00/11/73 PAGE * 


1 * 


180 

181 

182 

163 

106 

183 

188 

187 

180 

180 

100 

131 

102 

103 

100 

103 

100 

107 

100 

100 

200 

201 

202 

203 

20a 

203 

200 

207 

208 
200 
210 
211 
212 

213 

214 
213 
210 

217 

218 
210 
220 
221 
222 
223 


/TC00 DRIVER FOR RT80 V0 0/30/70 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT (C) 1074,1073 »Y DIGITAL E0U!PMENT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/THE INFORMATION IN THI8 OOCUMENT 18 0U0JICT TO CHANGE WITHOUT NOTICE 
/ANO 8H0ULD NOT 0E CON0TRUEO A8 A COMMITM!NT 0Y OI0ITAL EQUIPMENT 
/CORPORATION, DIGITAL EOUJPMENT CORPORATION ASSUMES NO RE0PON8IBILITV 
/FOR ANY ERRORS THAT HAY APPEAR IN THIS DCCUMENT, 

/THE SOFTWARE DE8CRI0ED IN THIS OOCUMENT ]0 FURNISHED TO THE PURCHASER 
/UNOER A LICENSE FOR USE ON A SINGLE COMF1 TER SYSTEM AND CAN BE COPIED 
/(WITH INCLUSION OP DIGITAL'S COPYRIGHT NCTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 

/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
/DIGITAL** 111 ™ ° F IT# SOrTWA * t 0N lQUIPH|NT THAT IS NOT SUPPLIED BY 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


o 
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/TC0S DRIVER FOR RT38 V2 


PALS-V0O 00/11/73 ’AGE 7 


224 



/ACCEPTS STAND 

223 





226 


0007 

TASK* 

DTA 

227 


0000 

INIWT* 

0 

228 


0010 

CUR* 

10 

220 





230 


0702 

DTCA* 

0702 

231 


0704 

DTX A* 

0704 

232 


0774 

DTLS* 

0774 

233 


0771 

DTSF* 

0771 

234 


0701 

OTRA* 

0701 

233 


0772 

DTRB* 

0772 

230 


7755 

DTACA* 

7753 

237 


7734 

DTAWC* 

7754 

238 





230 


0001 


FIELD 

240 


4000 


*4000 

241 



TMP, 


242 

140B0 

4020 

START, 

CAL 

243 

14001 

0000 

OONEFG, 

8KPINS 

244 

14002 

4077 


INTRPT 


CURX10 
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PAL8-V9D 09/11/73 PAGE 0 


/TC08 

DRIVER 

FOR RTSS V2 



245 



/MAIN 

HANDLER LOOP 

246 






247 

14*03 

4020 

LOOP, 

CAL 


240 

14*04 

0001 


RECEIV 


249 

14*05 

0000 

ADOR, 

0 


25P 

14*06 

3273 


OCA 

FLO 

251 

14607 

7346 

DTREOO 

, AC7775 


252 

14610 

3777 


OCA I 

(TRYCT 

253 

14*11 

2201 


ISZ 

DONEFG 

254 

14612 

7240 


STA 


235 

14*13 

1205 


TAD 

AODR 

256 

14614 

3205 


DCA 

ADDR 

257 

14615 

4272 


JMS 

GET 

258 

14*16 

0376 


AND 

(7 

259 

14617 

6211 


CDF CUR 


2*0 

14*20 

3775 


OCA I 

(UNIT 

2*1 

14*21 

4272 


JMS 

GET 

2*2 

14*22 

*211 


COF CUR 


2*3 

14623 

3774 


DCA I 

(DPUN 

2*4 

14624 

7240 


STA 


265 

14625 

4272 


JMS 

GET 

2*6 

14626 

6211 


COF CUR 


2*7 

14627 

3773 


DCA I 

(OLOC 

2*8 

14630 

4272 


JMS 

GET 

269 

14631 

7104 


CLL RAL 


270 

14632 

6211 


CDF CUR 


271 

14633 

3772 


OCA I 

(DBLOCH 

272 

14634 

1371 


TAD 

(FSTIN1 

273 

14635 

3317 


OCA 

I0I3P 

274 

14636 

6002 


IOF 


275 

14637 

4770 


JMS I 

(SETU 

276 

14640 

1367 


TAD 

(DTSF 

277 

14641 

3301 


DCA 

INTSKP 

278 

14642 

6001 


ION 


279 

14643 

7000 


NOP 


280 

14644 

4020 


CAL 


281 

14645 

0002 


WAITE 


282 

14646 

4601 

PDONFGi 

' OONEFG 


283 

14647 

1201 


TAO 

OONEFG 

284 

14650 

7650 


SNA CLA 


285 

14651 

5256 


JMP 

NOPFAL 

286 

14652 

7346 


AC7775 


287 

14653 

1205 


TAD 

ADDR 

288 

14654 

3205 


DCA 

ADDR 

289 

14655 

5207 


JMP 

DTREOO 

290 

14656 

4272 

NOPFAL, 

i JMS 

GET 

291 

14657 

7600 

P7600, 

7*00 


292 

14660 

1270 


TAD 

STATUS 

293 

14661 

3*05 


DCA I 

ADDR 

294 

14662 

1273 


TAD 

FLO 

295 

14663 

3270 


OCA 

pfld 

296 

14664 

1205 


TAD 

ADOR 

297 

14665 

1366 


TAO 

(•7 

298 

14666 

4020 


CAL 


299 

14667 

0005 


POST 



/6ET A MESSAGE 


/TRY 3 TIMES 
/INITIALIZE EVENT FLAG 


/GET OS/S STYLE APIS 

/DOUBLE ILOCK NUMB'ft 

/INITIALIZE INTERRUPT DISPATCH 

/INITIALIZE THE OPERATION 

/ENABLE INTERRUPT '111 

/BE NICE TO OTHER PEOPLE 

/(AND THEY'LL KICK YOU IN THE TASK) 

/WAIT FOR COMPLETION 

/IF EVENT FLAG DID NOT COME UP, 

/BUT WE CAME OUT 01' EFWT ANYWAY, 

/A POWER FAILURE MOST HAVE OCCURRED, 

/TAKE IT FROM THE “OP 

/THIS JUST SETS THC OF AND AODR 


/GET POINTER TO MESSAGE EVENT FLAG 




/TC08 DRIVER FOR RTSS V2 
300 STATUS, 


301 

14670 

7402 

PFLD, 

HLT 


302 

14671 

5203 


JMP 

LOOP 

303 

304 

14672 

0000 

GET, 

0 

305 

14*73 

7402 

FLO, 

HLT 


306 

14674 

2205 


ISZ 

ADDR 

307 

14675 

1605 


TAD I 

ADDR 

308 

14676 

5672 


JMP I 

GET 



PAL8-V90 09/11/75 PAGE 8-1 


/GET ANOTHER MESSAGE 
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/t 


•6 DRIVER FOR RTS# V2 


PALB-V9D B9/11/T! 


PAGE 9 


10 

12 


/INTERRUPT ROUTINE BEFORE DISPATCHING 


18477 

0000 

INTRPT, 

010 


14700 

0000 



14701 

7200 

iNTSKPf 

CLA 


14702 

5677 


JMP I 

INTRPT 

14703 

6213 


COP CIP 

CUR 

14704 

6772 


DTRB 


14709 

5717 


JMP I 

IDISP 

14706 

3270 

DSTOPf 

OCA 

STATUS 

14707 

6761 


OTRA 


14710 

0369 


ANO 

(200 

14711 

1364 


TAD 

(6 

14712 

6764 


DTXA 


14713 

1257 


TAO 

P760B 

14714 

3301 


OCA 

INT8KP 

14719 

1246 


TAD 

P00NP6 

14716 

5320 


JMP 

I0ISP91 

14717 

7402 

I0I8P# 

HLT 


14720 

6202 


CIP S 


14721 

9424 


P08TDS 


14764 

0006 




14769 

0200 




14766 

7771 




14767 

6771 




14770 

9022 




14771 

5005 




14772 

5063 




14773 

5062 




14774 

5061 




14779 

9064 




14776 

0007 




14777 

3060 





5000 


PAGE 



/CHAIN INTO SKIP CHAIN 
/OR 0T8P 


/DISPATCH INTERRUPT 


/DISABLE INTERRUPTS WHEN TAPE THROUGH 
/STOP TAPE# CLEAR ERRORS IN CONTROL 
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/TC08 DRIVER FOR RTS# V2 PAL8-V9D 09/11/79 PAGE 10 


345 



/search 

AND TRANSFER LOGIC 

346 







347 

15000 

1377 

OTGO, 

TAD 

(200 


348 

15001 

7430 

DTDC, 

8ZL 



349 

15002 

1376 


TAD 

(400 


350 

15003 

6764 


OTXA 


/START TAPE IN NCR (OLD) DIRECTION 

351 

15004 

4775 

RSTRT, 

JMS I 

(IDISP 


152 

15005 

7700 

F3TINT, 

SMA CLA 



353 

15006 

5265 


JMP 

CKBLNO 

/NO ERROR • CHECI FOR CORRECT BLOCK 

354 

15007 

6772 


DTRB 



155 

15010 

7006 


RTL 



396 

15011 

7004 


RAL 



1ST 

15012 

7700 


SMA CLA 


/NEAT TEST • ONL" SELECT ERROR BAD ON SEARCH# BUT 

3BS 

15013 

5200 


JMP 

OTGO 

/SINCE ENOZONE PI.AG IS IN LINK WE WILL REVERSE ON EZ 

399 

15014 

2260 

DTERR, 

ISZ 

TRYCT 

360 

15015 

5220 


JMP 

TRYAGN 

/TRY THREE TIMES ON ERRORS 

361 

15016 

6772 


DTRB 



362 

15017 

5774 


JMP I 

(D8T0P 

/OTHERWISE RETURN WITH ERROR FLAGS IN STATUS 

361 

15020 

4222 

TRYAGN, 

JMS 

SETU 

/TRY AGAIN » REINITIALIZE OPERATION ON UNIT 

36# 

15021 

5204 


JMP 

RSTRT 

/GO BACK INTO SEARCH WAIT 

365 







366 

15022 

0000 

SETU, 

0 


/ROUTINE TO INITIALIZE OT OP 

367 

15023 

6211 


COP CUR 



368 

15024 

1264 


TAD 

UNIT 

/GET UNIT NUMBER 

369 

15025 

1373 


TAD 

(BLKTAB 


370 

15026 

3247 


OCA 

UB 

/GET POINTER !NT( CURRENT BLOCK TABLE 

371 

15027 

1647 


TAD I 

UB 

/GET POSITION OP TAPE 

372 

15030 

1372 


TAD 

(12 


373 

15031 

7160 


CMA STL 


/IP DESIRED BLOC* IS MORE THAN 10 DECIMAL BLOCKS 

374 

15032 

1263 


TAD 

OBLOCK 

/IN FRONT OP WHEtE WE ARE# WE WANT 

375 

15033 

7200 


CLA 


/TO START FORWARC, 

376 

15034 

1264 


TAD 

UNIT 


377 

15035 

7012 


RTR 



378 

15036 

7012 


RTR 



379 

15037 

1371 


TAD 

(214 

/IN EITHER CASE >E WANT TO SEARCH WITH 

380 

15040 

6766 


OTCA DTXA 

/INTERRUPTS ENABLED 

381 

15041 

1370 


TAD 

(CUR 


382 

15042 

6774 


OTLB 


/AS A NEAT HACK VE TELL THE CONTROL 

383 

15043 

6201 


CDF 0 


/TO PLACE TAPE BLOCK NUMBERS OIRECTLY 

384 

15044 

1247 


TAO 

UB 

/INTO OUR CURREN1 BLOCK NUMBER TABLE AS XT 

365 

15045 

3767 


DCA I 

(OTACA 

/FINDS THEM# SAVING US SOME WORK 

366 

15046 

5622 


JMP I 

SETU 


387 







388 

15047 

• 000 

UB, 

0 



389 

15050 

0000 

blktab, 

ZBLOCK 

10 

/ALL TAPES START REWOUND 

390 







391 

19060 

0000 

TRYCT# 

0 



392 

15061 

0000 

DFUN , 

0 



393 

15062 

0009 

DI.OC, 

0 



394 

15063 

0000 

OBIOCK# 

0 



395 

15064 

0000 

UNIT, 

0 
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/TC06 DRIVER FOR RT«8 V2 


FAL8-VR0 19/11/75 PAOE 11 


39* 

13065 

*7*1 

CKBLNO, 

OTRA 


397 

13066 

7006 


rtl 


396 

13067 

704* 


CHA RTL 


399 

13070 

7*2S 


SNL CLA 


400 

15071 

7026 


CML RTL 


401 

15072 

1*47 


TAD I 

UB 

402 

15073 

7041 


CIA 


403 

13074 

12*3 


TAD 

DBLOCK 

404 

13073 

7690 


SNA CLA 


403 

13076 

7630 


SZL CLA 


406 

13077 

5201 


JMP 

DTOC 

407 

15100 

1262 


TAD 

DLOC 

406 

15101 

*201 


CDF 0 


409 

13102 

37*7 


OCA I 

(OTACA 

410 

13103 

6211 


CDF CUR 


411 

15104 

1261 


TAD 

DFUN 

412 

13105 

*774 


DTLB 


413 

13106 

12*1 


TAD 

OFUN 

414 

15107 

7104 


CLL RAL 


415 

13110 

036* 


AND 

(7*0B 

416 

19111 

3334 


DCA 

DBLCT 

417 

15112 

7004 


RAL 


416 

15113 

7001 


IAC 


419 

15114 

7126 


STL RTL 


420 

15115 

700* 


RTL 


421 

13116 

*7*4 

01, 

OTXA 


422 

15117 

*201 


CDF 0 


423 

15120 

1366 


TAD 

(7*0B 

424 

13121 

3765 


OCA I 

(DTAHC 

423 

13122 

4773 


JH8 I 

CIDISP 

426 

15123 

2647 


ISZ I 

UB 

427 

15124 

7710 


SPA CLA 


42S 

13125 

3214 


JHP 

DTERR 

429 

13126 

1334 


TAD 

DBLCT 

430 

13127 

1366 


TAD 

(7*00 

431 

13130 

7430 


SNA 


432 

15131 

5774 


JMP I 

(OSTOP 

433 

13132 

3334 


DCA 

DBLCT 

434 

13133 

3316 


JMP 

DL 

433 






436 

15134 

0000 

DBLCT, 

0 


437 

13165 

7754 




438 

15166 

7600 




439 

13167 

7735 




440 

15170 

0010 




441 

13171 

0214 




442 

15172 

0012 




443 

13173 

5030 




444 

13174 

4706 




443 

13173 

4717 




446 

13176 

0400 




447 

15177 

0200 




448 


3200 


PAGE 


449 




SS 



/DIRECTION IN LIKK 

/SEARCH REVERSE ‘0 BLOCK-2 

/SET SLOCK NUMBEIt FROM CONTROL BUFFER 


/A FEN LOCATIONS, A HAIRY ALGORI 


/SET ADDRESS ANO FIELD FOR TRANI 


/STi 


/SET MORO COUNT TO US WORDS 

/GIVE SOMEONE ELSE A CHANCE 

/BUMF CURRENT TAPE BLOCK NUMBER 

/ALL ERRORS OURINI DATA TRANSFER ARE BAD 


209 


/TC08 

DRIVER 

FOR RT38 V2 

AC0002 

7326 

1NIWT 

0000 

AC2000 

7332 

INTRPT 

4677 

AC3777 

7350 

XNT8KP 

4701 

AC4000 

7330 

LOOP 

4603 

AC7775 

734* 

LPT 

0004 

AC777* 

7344 

LTA 

0006 

ADOR 

4603 

MCR 

0003 

blkarg 

0010 

MCREF 

0041 

BLKTAB 

5050 

MCRSYS 

0001 

CAL 

4020 

MSGTBL 

1176 

CHECKP 

0001 

MSGWT 

0020 

CKBLNO 

5065 

netnt 

0010 

CLKQLN 

0020 

NONRWT 

4000 

CLKTYP 

0000 

nopfal 

4636 

CLOCK 

0001 

NTA3KS 

0023 

COMMAN 

0043 

osfill 

0004 

CS A 

0013 

osflos 

0002 

CSAF 

0014 

OSKBDV 

0030 

CUR 

0010 

OSSYSD 

0010 

DATE 

0040 

OSTTOV 

0031 

DBLCT 

5134 

038 

0023 

DBLOCK 

5063 

08SF 

0020 

DERAIL 

0007 

PARTBL 

1420 

DFUN 

3061 

PARTN3 

0000 

DF32 

0012 

PDONFG 

4646 

OL 

5116 

PDP12 

0000 

OLOC 

3062 

P0P6E 

0001 

ONEWT 

0001 

PFLD 

4670 

DONEFG 

4601 

POST 

0005 

D3T0P 

4706 

POSTDS 

3424 

OT A 

0007 

PWRF 

0002 

DTACA 

7755 

pwrfal 

0001 

OTAWC 

7734 

P7600 

4657 

OTCA 

6762 

RECEIV 

0001 

DTDC 

5001 

restbl 

1414 

DTERR 

5014 

RF08 

0011 

DTGO 

5000 

RK8 

0010 

DTLB 

6774 

rstrt 

5004 

OTRA 

6761 

run 

0003 

DTRB 

6772 

RuNWT 

1000 

OTREDO 

4607 

Rx8 A 

0017 

OTSF 

6771 

SEND 

0000 

OTXA 

6764 

SENDW 

0011 

EAE 

0001 

SETU 

5022 

EFWT 

2000 

shertz 

0074 

ENABWT 

0040 

SKPINS 

0006 

EORMWT 

0200 

START 

4600 

FLO 

4673 

status 

4670 

FREE 

4000 

SUN IT 

0000 

fstint 

5005 

SUSPNO 

0004 

GET 

4672 

SMARPE 

0021 

HERTZ 

0170 

SWPWT 

0400 

HGHFLD 

0030 

SYS 

0010 

ICS 

0016 

TASK 

0007 

IOISP 

4717 

tftabl 

1367 


FAL6-V9D 09/11/73 FACE 12 

TMP 4*00 
TODH 0037 
TOOL 0036 
TRYA6N 5020 
TRYCT 3060 
TSTABL 1244 
TSHFLS 0033 
TTY 0003 
US 5047 
UN0ARG 0012 
UNIT 30*4 
USERHT 0100 
WAITE 0002 
WAITM 4425 


?10 






ERRORS OETECTEDl 0 
LINKS OENERATEOl 0 



AC0002 

112# 



AC2000 

111# 



AC3777 

110# 



AC4000 

109# 



AC777S 

106# 

251 

266 

AC7776 

107# 



ADOR 

249# 

255 

256 

AO 

135# 



BLKARG 

130# 



6LKTAB 

369 

389# 


CAL 

116# 

242 

247 

CHECK# 

54# 



CKBLNO 

353 

396# 


CLKQLN 

95# 



clktyp 

94# 



CLOCK 

63# 

93 


COMMAN 

160# 



CS 

136# 



CS A 

74# 



CSAF 

75# 



CT 

136# 



CUR 

175 

173 

220# 


381 

410 


DATE 

166# 



OBLCT 

416 

429 

433 

DBLOCK 

271 

374 

394# 

derail 

129# 



OFUN 

263 

392# 

411 

DF32 

73# 



01 

421# 

434 


oioc 

267 

393# 

407 

DNEWT 

149# 



00NEF6 

243# 

253 

282 

DSTOR 

319# 

362 

432 

OTA 

69# 

226 


OTACA 

236# 

385 

409 

OTAWC 

237# 

424 


OTC A 

230# 

3A0 


OTOC 

346# 

406 


OTERR 

339# 

428 


OTGO 

347# 

336 


OTLB 

232# 

362 

412 

OTRA 

234# 

320 

396 

OTRB 

235# 

316 

354 

OTREOO 

251# 

269 


0T8F 

233# 

276 


OTX A 

231# 

323 

350 

EAE 

50# 



EFWT 

141# 



ENABWT 

146# 



EORMWT 

144# 



FLO 

250 

294 

303# 

FREE 

133# 



FSTINT 

272 

352# 


GET 

237 

261 

265 

HERTZ 

97# 



MGHFLO 

52# 



ICS 

76# 



IDISP 

273 

317 

327 


2S7 261 2«S 296 306 3 07 

280 296 

239 239 262 266 270 313 

436# 

403 

413 

263 

361 

360 421 

266 290 304# 306 

329# 351 425 



367 
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4 


INI WT 

INTRPT 

INT8KP 

LOOP 

LPT 

LTA 

NCR 

MCREP 

MCRSVS 

M88TBL 

MSGWT 

NETWT 

NOPPAL 

NTA8KS 

08FILL 

08FL08 

08KBDV 

088Y8D 

08TT0V 

088 

088F 

PARTBL 

PARTN8 

POONFG 

P0P12 

PDP8E 

PFLO 

POST 

P08T0S 

PWRF 

PWRFAL 

P7600 

RECEIV 

RESTBL 

RF08 

RK8 

R8TRT 

RUN 

runmt 

RX8A 

SEND 

SENOw 

SETU 

SHERTZ 

SKPINS 

START 


*14764 
*14765 
Ii«766 
*14767 
^14770 
114771 
114772 
*14773 
*14774 
114775 
*14776 
*14777 
1151 fc 5 
*15166 
,.15167 
*15170 
^15171 
*15172 
115173 
,.15174 
,,15175 
,.15176 
*15177 

V3 


174 

244 

277 

247 

66 

66 

67 

167 

41 

152 

147 

146 

285 

53 

88 

84 

65 
87 

66 

76 
79 

159 

55 

262 

49 

46 

295 

127 

117 

64 

51 

241 

125 

158 

72 

71 

351 

125 
142 

77 
122 
131 
275 

96 

126 
176 


2276 

311# 314 
313# 325 
301 


90 

153 172 


290# 

78 153 155 158 159 


63 


326 


301# 

299 

331 


324 

246 

159 

87 

364 


182 


363 366# 386 


243 

242# 


STATUS 

292 

300# 

314 


8UNIT 

103# 




SUSPND 

126# 




SWAPPE 

70# 

101 

157 

159 

8WPWT 

143# 




SYS 

102# 




TASK 

172 

174 

178 

226# 

TFT ABL 

155# 

158 

176 


TMP 

241# 




TOOH 

165# 




TOOL 

164# 




TRYAGN 

360 

363# 



TRYCT 

252 

359 

391# 


TSTABL 

153# 

155 

174 



TSWFLG 

163# 




TTY 

65# 




UB 

370 

371 

364 

386# 

UDC 

135 




UNBARG 

132# 




UNIT 

260 

368 

376 

395# 

USERWT 

145# 




WAITE 

124# 

281 



WAITM 

116# 





322 

321 

297 

276 

275 

272 

271 

267 

263 

260 

258 

252 

424 

415 

365 

381 

379 

372 

369 

362 

351 

349 

347 


423 430 

409 


432 

425 


214 




# v 


(VERSION PALS-V40 04/11/7! PAOt l 


1 

2 

3 

4 

5 
4 
7 
• 
4 

10 

11 

12 

13 

14 

13 

14 
17 

15 

14 
20 
21 
22 

23 

24 

25 
24 
27 

15 
24 

30 

31 

32 

33 

34 

35 
34 

37 

38 

39 

40 

41 

42 

43 

44 


(VIRSXOH I) 


/PARAMETERS FOR RTS-0 TASKS 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT (C) 1474,1473 »V OIOXTAL «(UXPMINT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

INFORMATION in THIS DOCUNfNT XS SUSJKCT TO CHANGE WITHOUT NOTICE 
CON,T "UEO AS a COMMITMENT BY OIOXTAL EQUIPMENT 

equipment corporation assumes no RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT, 

^J.!°! T !^!L!! 8 £ RX#l0 XN THXi document is furnxsheo to the purchaser 

'WJJ* F °* UM 0N A COMPUTER SYSTEM AN0 CAN 6E COPIED 

,J!IJ!L XN £ L £!IS N 0F 0X8IT ^ # ® copyrioht NOTICE) only for use in such 

/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL, 

J!. 0 !!! 1 !! S!! 80 *atxon AMUHES NO responsibility FOR THE USE 
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
/DIGITAL, 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 
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/PARAMETERS FOR RTS-8 TASKS 


(VERSION PALS-V4D 04/11/73 PACE 2 


45 

44 

47 

48 
44 
38 
31 

52 

53 
34 
55 
34 
37 
58 
34 

40 

41 

42 


/RTSS V2 EXEC PARAMETERS • EDITED BY USEP 



/RTSS V2 

0001 

POPSEH 

0000 

PDPlf*0 

0001 

EAE-1 

0001 

PWRFAL'l 

0030 

HGHFLDfSO 

0023 

NTASKS923 

0001 

CHECKPT-l 

0000 

PARTN8-0 


/(THE N PARTITIONS ARE NUMBERED FROM 0 TO N-l) 
/COMMON TASK NUMBERS • EDITED BY USER 

/IT XS AOVXSABLE TO DEFINE ALL TASKS HERE, NAMES GIVEN BELOW 
/ARE USED BY SOME SYSTEM TASKS AND SHOULO BE DELETED FROM THIS 
/LIST IF THE CORRESPONDING TASK IS NOT INCLUOEO IN THE SYSTEM 


63 

0001 

CLOCKffl 


64 

0002 

PWRF-2 


63 

0003 

TTY»3 


66 

0004 

LPT-4 


67 

0005 

MCRfS 


68 

0006 

LTA-6 


69 

0007 

DTA*7 


70 

0021 

SWAPPER-21 


71 

0010 

RKSilO 


72 

0011 

RF08-11 


73 

0012 

DF32-12 


74 

0013 

CSA-13 


73 

0014 

C8AF-14 


76 

0816 

ICS-16 


77 

0017 

RX8A*17 


78 

0023 

OSStNT ASKS 


79 

0020 

O8SF-20 


80 




81 


/SOFTWARE PARAMETERS 

82 




83 


IFDEF 

OSS 

84 

0002 

0SFLD8-2 


83 

0030 

08K00V-30 


86 

0031 

OSTTDV-31 


87 

0010 

08SYSD-RK8 


88 

0004 

OSFILL-4 


89 


» 


90 


IFOEF 

MCR 

91 

0001 

MCRSY8-1 


92 


» 


93 


IFOEF 

CLOCK 

94 

0000 

CLKTYP-0 

95 

0020 

CLKOLN-20 


96 


DECIMAL 


97 

0170 

HERTZ-120 


98 

0074 

SHERTZ-60 


99 


OCTAL 



216 





/PARAMETERS FOR RTS-8 TASKS 


(VERSION PALfl-VfO 09/11/79 RASE 2*1 


1SS 

101 

108 

IBS 

104 


IPDEP 

esie sysirks 
0000 SUNZTce 

» 


SNAPPER 4 



817 


/PARAMETERS FOR RTS*8 TASKS 


(VERSION PAL8-V9D 09/11/75 PARE S 


105 

106 

107 

108 

109 

110 
111 
112 
113 
11 « 
115 


/EQUIVALENCES! 

7344 AC7776* CLL 8TA RAL 

7346 AC7775* CLL STA RTL 

7330 AC4000a CLA STL RAR 

7330 AC3777* CLL STA RAR 

7332 AC2000B CLA STL RTR 

7326 AC0002* CLA STL RTL 

/MONITOR CALL VALUE3I 


20 

24 

25 


116 

4020 

CAL* 

JMS 

117 

5424 

P0STD8* 

JMP I 

118 

4425 

WAITMa 

JMS I 

119 




120 




121 




122 

0000 

SEND* 

0 

123 

0001 

RECEIV* 

1 

124 

0002 

WAITE* 

2 

125 

0003 

RUN* 

3 

126 

0004 

SUSPND* 

4 

127 

0005 

POST* 

5 

128 

0006 

SKPINS* 

6 

129 

0007 

DERAIL- 

7 

130 

0010 

blkarg* 

10 

131 

0011 

SENDW* 

11 

132 

0012 

unbarg* 

12 

133 

4000 

FREE* 

4000 

134 




135 



IFDEF 

136 




137 




138 


/TASK STATUS 1 

139 




140 

4000 

NONRWT* 

4000 

141 

2000 

EFWT* 

2000 

142 

1000 

RUNWTp 

1000 

143 

0400 

SWPWTp 

0400 

144 

0200 

EORMWT* 

0200 

145 

0100 

USERWT* 

0100 

146 

0040 

ENABWT* 

0040 

147 

0020 

MSGWT* 

0020 

148 

0010 

netwtr 

0010 

149 

0001 

onewt* 

0001 


/CALL THE EXECUTI/E 
/DISMISS AN INTERRUPT 
/NAIT FOR MULTIPLE EVENTS 


/NOTEI "•*» MEANS CRITIC 1L VALUE MAY NOT 

/BE CMAN6ED WITHOUT MODIP 'ING SYSTEM CODEU 

/SEND MESSAGE 

/RECEIVE MESSAGE 

/WAIT FOR EVENT FLAG 

/CONTINUE TASK EXECUTION 

/SUSPEND TASK EXECUTION 

/POST AN EVENT FLAG 

/INSERT CODE INTO INTERRUPT SKIP CHAIN 
/INITIATE END-ACTION 

/BLOCK TASK FOR REASON SPECIFIED IN ARC 
/SEND MESSAGE AND WAIT 

/UNBLOCK TASK FOR REASON IPECIFIEO IN ARG 
/••FREE PARTITION 

DC «AO?0fDO»WDIf8fGi:»3fECMfRC«S 

DC«6fECT*7lCS>10fl)CT«llf AI'12» 


/••NONRESIDENT TASK WAIT 
/EVENT FLAG WAIT 
/SCHEDULE WAIT 
/••SWAPPER WAIT 
/EVENT FLAG OR MESSAGE WAIT 
/USER SPECIFIED WAIT 
/ENABLE WAIT 
/MESSAGE WAIT 

/NETWORK WAIT (RESERVED F OR POSSIBLE FUTURE USE) 
/••DOES NOT EXIST WAIT 


I 


218 







/I 


;ti 


(VERSION FALS-VfO BV11/78 RAGE 4 


/SYSTEM LOCATIONS! 

UTS MSSTSLi 1200-1 /TASK MESSAGE TABLE 

1144 TSTABL* NTA8KBr2*2pM8GTBL-4 /TASK STATE TABLE • HOLDS 

/TASK LINK,UM,OF,XF,FC,AC,MO 

1367 TFTASL* NTASKS** W 4*T8TA0L-1 /TASK FLAGS TABLE • HOLDS 

/TASK STATUS FLAGS 

IFDEF SHAFFER « 

1414 RESTBLi TFTAGL*NTASKS«« /RESXOENCY TABLE 

1420 FARTBL* NTASKS«SHAFFER w |4RESTBLOSTT74 /PARTITION TABLE 
•043 COMMANDM3 /SHAFFER COMMAND SUFI 


•■33 

T8WFL6* 

33 

•03S 

TOOL* 

34 

•037 

TOOHl 

37 

0040 

DATE* 

40 

0041 

MCREF» 

41 


/TASK SW INHIBIT FLAG H FIELD B 
/LOW ORDER TIME OF OAY I* FIELD S 
/HIGH ORDER TIME OF OAY I i FIGLO B 
/DATE IN OSS FORMAT X! FIELD B 
/NCR START EVENT FLAB H FIELD B 


119 


/PARAMETERS FOR RTS-S TASKS (VERSION FAL8-V9D 09/11/73 RAGE 3 


169 



/TASK 

TABLE SETUF • "TASK", "CUR","INXWT", ANO "START" 

170 

171 

172 



/MUST 

BE DEFINED BY TASKI 


1223 


*TASK*2+M86TBL 


173 

01222 

0009 


ZBLOCK 2 

/MESSAGE BUFFER INITIALLY CLEAR 

174 


1314 


*TA8K*44TSTABL 

175 

01314 

0000 


CURI10OCUR 

/INITIAL FLAGS 

176 

01315 

4400 


START 

177 

01316 

0009 


0 

/INITIAL AC 0 

178 


1401 


*TASK*TFTABL 


179 

01401 

0000 


XNIHT 



lie 








/RF08/DF32 DRIVER FOR RT88 V2 


180 

111 

182 

183 

184 
183 
186 

187 

188 

189 

190 

191 
198 

193 

194 
193 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 
219 
216 

217 

218 

219 

220 
221 
222 
223 


PALS-V9D 09/11/'S PAGE 6 

/RFBS/0F32 DRIVER FOR RTM VI 8/S0/74 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT CC) 1994,1973 BY DIGITAL IOUIFHENT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/THE INFORMATION IN THI8 DOCUMENT IS SLGJECT TO CHANGE WITHOUT NOTICE 
/AND SHOULD NOT GE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
/CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THU DOCUMENT, 

, T S!.! 0FmW DESCRIBED IN THIS DOCUMENT IS PURNISHEO TO THE PURCHASER 
'UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
/(WITH INCLUSION OF OIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDEO IN WRITING BY DIGITAL, 

/DIQITAL EQUIPMENT CORPORATION ASSUMES MO RESPONSIBILITY FOR THE USE 
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
/DIGITAL, 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 
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/RF08/OF32 DRIVER FOR RTSS V2 


PAL8«V90 09/11/7! PAGE 7 


224 



/ACCEPTS STANDARD RTS>6 

223 






226 


0012 


IFDEF 

DF38 

227 




IFNDEF 

0F32 

228 






229 


0000 

INIWT* 

0 


230 


0000 

CUR* 

0 


231 






232 


6615 

DIML* 

6615 


233 


6616 

DIMA* 

6616 


234 


6621 

OFSE* 

6621 


233 

0 

6622 

OFSC* 

6622 


236 


6623 

DISK* 

6623 


237 


6643 

DXAL* 

6643 


238 


6603 

OMAR* 

6603 


239 


6605 

OMAW* 

6605 


240 


6601 

OCMA* 

6601 


241 






242 


7750 

RFWC* 

7750 


243 


7751 

RFC A* 

7731 


244 






245 


0000 


FIELD 

CURX10 

246 


4400 


• 4400 


247 



TMP, 



248 

04400 

4020 

START, 

CAL 


249 

04401 

0006 

DONEFG, 

3KPIN8 


230 

04402 

4515 

TRYCT, 

INTRPT 


251 






232 

04403 

4020 

LOOP, 

CAL 


233 

04404 

0001 


RECEIV 


254 

04405 

0000 

AOOR, 

0 


255 

04406 

3246 


OCA 

fld 

256 

04407 

2201 


ISZ 

DONEFG 

257 

04410 

7240 


STA 


258 

04411 

1205 

DOAGIN, 

TAD 

ADDR 

239 

04412 

6002 


IOF 


260 

04413 

4252 


JMS 

INIT 

261 

04414 

1377 


TAD 

(FSTINT 

262 

04415 

3323 


DCA 

IDI3P 

263 

04416 

7346 


AC7775 


264 

04417 

6001 


ION 


265 

04420 

3202 


DCA 

TRYCT 

266 

04421 

4020 


CAL 


267 

04422 

0002 


WAITE 


268 

04423 

4401 

PDONFG, 

DONEFG 


269 

04424 

1201 


TAD 

OONEFG 

270 

04423 

7650 


SNA CLA 


271 

04426 

5231 


JMP 

NOPFAL 

272 

04427 

1376 


TAD 

(•4 

273 

04430 

3211 


JMP 

DOAGIN 

274 

04431 

4243 

NOPFAL, 

JMS 

GET 

275 

04432 

7600 

P7600, 

7600 


276 

04433 

1243 


TAO 

STATUS 

277 

04434 

3605 


DCA I 

ADDR 

278 

04435 

1246 


TAD 

FLO 


MASS STORAGE MESSAGE FORMAT 

<TA$K* DF32> 

<TASK* RF08» 


/GET A MESSAGE 
/INITIALIZE EVENT FLAG 


/START UP THE OLK DISK 
/INITIALIZE INTERRUPT DISPATCH 

/TRY 3 TIMES 


/WAIT FOR COMPLETION 


/EVENT FLAG 0 * NORMAL ENO 

/EVENT FLAG NOT (i • POWER FAILURE MUST HAVE 

/OCCURRED WHILE WE WERE WAITING, 

/THIS JUST SETS 1 HE DF AND ADDR 


222 






1/01 


I 


'01 


ITI 


PALS-V40 G4/U/79 FAQE 7*1 


/I 


274 

04436 

3243 


OCA 

PFLO 

280 

04437 

1209 


TAD 

ADOR 

281 

04440 

1379 


TAD 

(-7 

282 

04441 

4020 


CAL 

283 

04442 

0009 


POST 


284 



STATUS, 



289 

04443 

7402 

PFLO, 

HLT 


288 

287 

288 

04444 

9203 


JMP 

LOOP 

04449 

0000 

GET, 

0 


284 

04446 

7402 

FLO, 

HLT 


240 

04447 

2209 


ISZ 

ADOR 

291 

04490 

1609 


TAD I 

A0OR 

292 

04491 

9649 


JHP I 

GET 


/GET POINTER TO MESSAGE EVENT FLAG 


/GET ANOTHER MESSAGE 


223 



/RF08/DF32 DRIVER FOR RTSS V2 
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293 /RF0S STARTUP SUBROUTINE • CALLED WITH IOP 


294 

04452 

0000 

INIT, 

0 


299 

04453 

3205 


OCA 

ADOR 

246 

04454 

6601 


DCMA 


297 

04455 

4245 


JMS 

GET 

298 

04456 

7200 


CLA 


294 

04457 

4245 


JMS 

GET 

300 

04460 

0374 


AND 

(70 

301 

04461 

3200 


DCA 

TMP 

302 

04462 

1605 


TAD I 

AODR 

303 

04463 

7104 


CLL RAL 


304 

04464 

0232 


ANO 

P7600 

305 

04465 

7440 


8ZA 


306 

04466 

7041 


CIA 


307 

04467 

6201 


CDF 0 


308 

04470 

3773 


OCA I 

(RFWC 

304 

04471 

7006 


RTl 


310 

04472 

1372 


TAD 

(OMAR 

311 

04473 

3313 


OCA 

INST 

312 

04474 

7240 


STA 


313 

04475 

4245 


JHS 

GET 

314 

04476 

6201 


CDF 0 


319 

04477 

3771 


DCA I 

(RFCA 

316 

04500 

4245 


JMS 

GET 

317 




IFNDEF 

0F32 

318 




CLL RTR 


319 




RTR 


320 




ANO 

(377 

321 




OXAL 


322 




TAD 

(500 

323 




» 


324 




IFDEF 

0F32 

325 

04501 

7106 


CLL RTL 


326 

04902 

0370 


ANO 

(3700 

327 




» 


328 

04903 

1200 


TAD 

TMP 

329 

04504 

6615 


OJML 


330 

04505 

7200 


CLA 


331 

04506 

1605 


TAD I 

AOOR 

332 

04507 

7112 


CLL RTR 


333 

04510 

7012 


RTR 


334 

04511 

7010 


RAR 


335 

04512 

0232 


AND 

P7600 

336 

04513 

7402 

INST, 

HLT 


337 

04514 

5652 


JMP I 

INIT 


/ADDRESS OP PARAMETER SLOCK «1 IN AC 
/CLEAR DISK 

/IGNORE UNIT 


/SAVE FIELD 


/FORM WORO COUNT FOR OPERATION 

/SAVE IN WC LOC 

/GET READ OR WRITE INST 


/STORE CURRENT A )DRESS LOC 


/GET HIGH ORDER DISK ADDRESS 

/INTO EXTENOEO REGISTER 

/enable cohpletion ANO ERROR INTERRUPT 


/GET HIGH ORDER DISK ADDRESS 
/ADD IN FIELD 

/LOAD EXTENDED ADORESS REG 
/FOR DF32 


/ACTUALLY 7400 SINCE 200 BIT CLEAR 1 
/READY, STEADY, D01 




224 






4 


/RF08/DF32 DRIVER 


338 

04515 

0000 

INTRPT, 

010 


339 

04316 

0000 




340 




IPNOEP 

DP32 

341 




IPDEP 

DP32 

342 

04517 

6622 


DP8C 


343 

04520 

6621 


DPSE 


344 

04521 

7410 


SKP 


345 




» 


346 

04322 

3713 


JMP I 

INTRPT 

347 

04523 

6203 


COP CIP 

CUR 

346 

04324 

3725 


JMP I 

t + 1 

349 

04523 

4342 

IOISP, 

HALT 


350 

04326 

6202 


CIP 1 


351 

332 

04527 

3424 


POSTDS 


333 

334 



/RP06 INTERRUPT 

SERVICE 

355 

04330 

6621 

P8TINT, 

DPSE 


356 

04331 

7410 


IPDEP 

0P32 

337 

04532 

5336 


JMP 

OKOVER 

336 

04333 

2202 


ISZ 

TRYCT 

359 

04334 

3343 


JMP 

TRYAGN 

360 

04533 

6616 


DIMA 


361 

04536 

3243 

OKOVER, 

DCA 

STATUS 

362 

04537 

6601 


OCMA 


363 

04540 

1223 


TAD 

PDONPG 

364 

04541 

4323 


JM8 

IOISP 

365 

04542 

7402 

HALT, 

HLT 


366 






367 

04543 

1203 

TRYAGN, 

TAD 

ADOR 

366 

04344 

1376 


TAD 

(•4 

369 

04545 

4252 


JMS 

INIT 

370 

04546 

4325 

GOAWAV, 

JMS 

IOISP 

371 

04547 

5330 


JMP 

P8TINT 

372 

04570 

3700 




373 

04571 

7731 




37a 

04572 

6603 




375 

04573 

7730 




376 

04374 

0070 




377 

04575 

7771 




376 

04576 

7774 




379 

04577 

4530 




380 


4600 


PAGE 


361 




SS 
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/SKIP CHAINING GO :S HERE 


<DI3Kp /SKIP ON COMPLETION OR ERROR 


/SKIP ON COMPLETION 
/SKIP ON NO ERROR 
/COMPLETION OR ERI'OR 


SKIP AGAIN 


/SET OP ANO IP COIRECTLV 


/IOISP IS A COROUTINE WITH 
/THE RTS-8 INTERRlPT SYSTEM 


/ERROR? 

«8KP* /SKIP IS P EVERSE-SENSE 
/NO • WE'RE DONE 

/ITS A MORE 8ERI01S ERROR • HON MANY 
/TIMES HAVE WE HI1 IT? 

/TOO MANY • RETURP DISK STATUS REGISTER 

/CLEAR NASTY PIAGI 

/GOING TO POSTOS PITH THE AC NON-ZERO 
/WAKES UP THE HANCLER TO CLEAN UP 
/POR GOOD LUCK 


/BACK UP THE AOORISS POINTER 


/RF06/DF32 1 

DRIVER FOR RT86 V2 


PAL8< 

AC0002 

7326 

HCR 

0005 

TSWFLG 

0035 

AC2000 

7332 

MCREF 

0041 

TTY 

••03 

AC3777 

7350 

MCRSYS 

0001 

UNBARG 

0012 

AC4000 

7330 

msgtbl 

1176 

U8ERWT 

0100 

AC7775 

7346 

HSGWT 

0020 

WAITE 

0BBI 

AC7776 

7344 

netwt 

0010 

WAITM 

4425 

ADDR 

4405 

NONRWT 

4000 



blkarg 

0010 

NOPFAL 

4431 



CAL 

4020 

NTA8KS 

0023 



CHECKP 

0001 

osfill 

0004 



CLKQLN 

0020 

osflos 

0002 



clktyp 

0000 

OSKBDV 

0030 



CLOCK 

0001 

0S3YSD 

0010 



COMMAN 

0043 

OSTTOV 

0031 



CSA 

0013 

088 

0023 



CSAF 

0014 

0S8F 

0020 



CUR 

0000 

PARTBL 

1420 



DATE 

0040 

PARTNS 

0000 



DCMA 

6601 

pdonfg 

4423 



DERAIL 

0007 

POP 12 

0000 



DFSC 

6622 

P0P6E 

0001 



DFSE 

6621 

PFLO 

4443 



DF32 

0012 

POST 

0005 



DIMA 

6616 

POSTDS 

5424 



niHL 

6615 

PWRF 

0002 



DISK 

6623 

pwrfal 

0001 



OKOVER 

4536 

P7600 

4432 



DM AR 

6603 

RECEIV 

0001 



DM A w 

6605 

RESTBL 

1414 



DNEWT 

0001 

RFC A 

7751 



DOAGIN 

44} 1 

RFWC 

7750 



donefg 

4401 

RF08 

0011 



OTA 

0007 

RK 8 

0010 



OX AL 

6643 

RUN 

0003 



EAE 

0001 

RUNWT 

1000 



FFwT 

2000 

RX8A 

0017 



ENABWT 

0040 

SEND 

0000 



FORMWT 

0200 

SENOW 

0011 



FLO 

14 46 

SHERTZ 

0074 



FREE 

4 >100 

SKPINS 

0006 



FSTINT 

4530 

START 

4400 



GET 

4445 

STATUS 

4443 



GOAWAV 

4546 

SUN IT 

0000 



halt 

4542 

SijSPND 

0004 



HERTZ 

0170 

SWAPPE 

0021 



hghfld 

0030 

SwPwT 

0400 



ICS 

0016 

SYS 

0010 



rmsp 

4525 

task 

0012 



TNIT 

4452 

tftabl 

1367 



INIwT 

0000 

TMP 

4400 



INST 

451 % 

tooh 

0037 



INTRPT 

451* 

tool 

0036 



LOOP 

4403 

TRYAGN 

4543 



LPT 

0004 

TRYCT 

4402 



TA 

000*. 

TSTABL 

1244 




09/11/73 CAGE 10 


226 




> 


ERRORS OETECTEDI 0 
LINKS GENERATED I 0 


227 



AC0002 

112* 





AC2000 

111# 





AC3777 

110* 





AC4009 

109* 





AC7773 

108* 

263 




AC7776 

107# 





ADOR 

234# 

25S 

277 

280 

290 

AO 

135# 





BLKARG 

130# 





CAL 

114# 

241 

252 

266 

282 

CHECKR 

54# 




CLKOLN 

43# 





CLKTYR 

94# 





CLOCK 

63# 

93 




COMMAN 

160# 





cs 

138# 





CS A 

74# 





CS AF 

75* 





CT 

136# 





CUR 

175 

173 

230# 

243 

347 

DATE 

166# 





OCHA 

240# 

296 

362 



DERAIL 

129# 





DP3C 

233# 

342 




OFSE 

234# 

343 

355 



0F32 

73# 

226 

226 

227 

317 

DIMA 

233# 

360 




diml 

232# 

329 




DISK 

236# 

340 




OKOVER 

337 

361# 




OMAR 

238# 

310 




OMAW 

239# 





ONEWT 

149# 





OOAGIN 

258# 

273 




OONEFG 

249# 

256 

246 

249 


OTA 

69# 





OXAL 

237# 

321 




EAE 

50# 





EFWT 

141# 





ENABNT 

146# 





EORMWT 

144# 





FLO 

255 

278 

289# 



FREE 

133# 





fstint 

261 

355# 

371 



GET 

274 

288# 

292 

297 

299 

GOAMAY 

370# 





MALT 

349 

365# 




HERTZ 

97# 





MQHRLD 

32# 





ICS 

76# 





IDI3P 

262 

349# 

364 

370 


INIT 

260 

294# 

337 

369 


INI WT 

179 

229# 




INST 

311 

334# 




INTRRT 

250 

338# 

346 



LOOP 

232# 

286 




LPT 

66# 





LTA 

68# 





MCR 

67# 

90 





203 


340 


316 


30 » 


341 


331 347 


334 



228 




MCREF 

167# 




MCR3Y3 

91# 




M3GTBI 

152# 

153 

172 


M3GWT 

147# 




NETWT 

146# 




NOPFAL 

271 

274# 



NT ASKS 

53# 

78 

133 

155 

OSFILL 

66# 




03F10S 

84# 




08KB0V 

65# 




0SSY30 

87* 




osttov 

66# 




033 

78# 

63 



0S8F 

79# 




PARTBL 

159# 




PARTN3 

55# 




PDONFG 

266# 

363 



PDP12 

49# 




PDP8E 

46# 




PFID 

279 

265# 



POST 

127# 

283 



P0ST03 

117# 

351 



PWRF 

64# 




PWRFAl 

51# 




P7600 

275# 

304 

335 


RECEIV 

123# 

253 



RE3TBL 

156# 

159 



RFCA 

243# 

315 



RFWC 

242# 

306 



RF08 

72# 

227 



RK8 

71# 

87 

102 


RUN 

125# 




RUNWT 

142# 




R X 8 A 

77# 




SEND 

122# 




senow 

131# 




SHERTZ 

96# 




SKPINS 

126# 

249 



3T ART 

176 

248# 



STATUS 

276 

284# 

361 


3UNIT 

103# 




SU3PN0 

126# 




SWAPPE 

70# 

101 

157 

159 

SWPWT 

143# 




SYS 

102# 




TASK 

172 

174 

178 

226 

tftabl 

155# 

156 

178 


TMP 

247# 

301 

326 


todh 

165# 




tool 

164# 




TRYAGN 

359 

367# 



TRYCT 

250# 

265 

356 


tstabl 

153# 

155 

174 


TSWFLG 

163# 




TTY 

65# 




UDC 

135 




UNRARG 

132# 




USERWT 

145# 




WAITE 

124# 

267 



WAIT* 

116# 




*04570 

326 




*0457 1 

315 




*04572 

310 




*04573 

308 




*04574 

300 




*04575 

281 




.,.04578 

272 

368 



*04577 

261 





229 


230 




ETER 


(VERSION PAL8-V9D 09/11/15 PACE 1 


1 

2 

3 

4 

5 

6 
7 
• 
9 

10 

11 

12 

13 

14 

15 

16 
17 
IS 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 


/PARAMETERS FOR RTS-8 TASKS (VERSXCN I) 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT (C) 1978,1975 BY DIGITAL EQUIPMENT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/the INFORMATION IN THIS DOCUMENT IS SU9JECT TO CHANGE WITHOUT NOTICE 
/ANO SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
/CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT, 

/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
/UNDER A LICENSE FOR USE ON A SINSLE CO 1PUTER SYSTEM ANO CAN BE COPIED 
/(WITH INCLUSION OF OIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROHDEO IN WRITING BY DIGITAL, 

/ 

/DIGITAL EQUIPMENT CORPORATION ASSUMES 40 RESPONSIBILITY FOR THE USE 
/OR RELIABILITY OF ITS SOFTWARE ON EQUI’MENT THAT IS NOT SUPPLIED BY 
/DIGITAL. 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


/PARAMETERS FOR RTS-8 TASKS 


(VERSION PAL8-V9D 09/11/73 PAGE 2 


45 

46 

47 
46 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 


0001 

0000 

0001 

0001 

0030 

0023 

0001 

0000 


/RT88 V2 EXEC PARAMETERS • EDITED BY USER 

POPSE-l 

POPlI-B 

EAE-l 
PWRFALM 
HGHPLOrSS 
NTASK8-23 
CHECKPT-1 
PARTNS-f 


/(THE N PARTITIONS ARE NUMBERED FROM 0 TO N«l) 


/COMMON TASK NUMBERS • EOITED BY USER 
/IT IS AOVISABLE TO DEFINE ALL TASKS HERE, 


NAMES GIVEN BELOW 


61 


/LIST IF THE C0RRE8PQ 

62 



63 

0001 

CLOCK-1 

64 

0002 

PWRF«2 

65 

0003 

TTY«3 

66 

0004 

LPT-4 

67 

0005 

MCR»5 

68 

0006 

LTAP6 

69 

0007 

0TA«7 

70 

0021 

SWAPPER-21 

71 

0010 

RKS-10 

72 

0011 

RF0S-11 

73 

0012 

0F32-12 

74 

0013 

CSA-13 

75 

0014 

CSAF-18 

76 

0016 

ICS-16 

77 

0017 

RXSA-17 

78 

0023 

0S8-NT ASKS 

79 

0020 

OSSF-20 

80 



81 


/SOFTWARE PARAMETERS < 

82 



83 


IFOEF 0S8 

84 

0002 

0SFL0S-2 

85 

0030 

OSKBOV-30 

86 

0031 

OSTTOV-31 

87 

0010 

OSSYSD-RKS 

80 

0004 

0SFILL-4 

89 


> 

90 


IFOEF MCR 

91 

0001 

MCRSYS-1 

92 


> 

93 


IFOEF CLOCK 

94 

0000 

CLKTYP-0 

95 

0020 

CLKQLN-20 

96 


DECIMAL 

97 

0170 

HERTZ-120 

98 

0074 

SHERTZ-60 

99 


OCTAL 


232 




/PARAMETERS FOR RTS-S TASKS (VERSION PALS.V9D 09/11/73 PAGE 2-1 

6 

IPDEF SWAPPER « 

0010 SYSMKS 
0000 SUNXTP0 



100 

101 

102 

103 

104 



233 


/PARAMETERS FOR RTS-8 TASKS 


(VERSION PAL6-V90 09/11/7) PAGE 3 


107 

7344 

AC7776* 

CLL 8TA 

RAL 

100 

7346 

AC7775* 

CLL STA 

rtl 

109 

7330 

AC 4000b 

CLA STL 

RAR 

110 

7350 

AC37774 

CLL STA 

RAR 

111 

7332 

AC2000P 

CLA STL 

RTR 

112 

113 

114 

115 

116 

7326 

AC0002* 

CLA STL 

RTL 


/MONITOR CALL VALUES! 

4020 

CAL* 

JMS 

20 /CALL THE EXECUTIVE 

117 

5424 

P08T08* 

JMP I 

24 /DISMISS AN INT IRRUPT 

110 

119 

4425 

WAITM* 

JMS I 

25 /WAIT FOR MULTIPLE EVENTS 

120 

121 

122 

0000 

SEND" 

0 

/NOTE! »**" MEANS CRITICAL VALUE MAY NOT 
/BE CHANGEO WITHOUT MOOIPYXNG SYSTEM CODED 
/SEND MESSAGE 

123 

0001 

RECEIV* 

l 

/RECEIVE MESSAGE 

124 

0002 

WAITE* 

2 

/WAIT FOR EVENT FLAG 

125 

0003 

RUN* 

3 

/CONTINUE TASK EXECUTION 

126 

0004 

8USPN0* 

4 

/SUSPEND TASK EXECUTION 

127 

0005 

POST* 

5 

/POST AN EVENT FLAG 

120 

0006 

SKPXNS* 

6 

/INSERT CODE INTO INTERRUPT SKIP CHAIN 

129 

0007 

DERAIL* 

7 

/INITIATE END-ACTION 

130 

0010 

blkarg* 

10 

/BLOCK TASK FOR REASON SPECIFIED IN ARG 

131 

0011 

SENDW* 

11 

/SEND MESSAGE AND WAIT 

132 

0012 

UNBARG- 

12 

/UNBLOCK TASK FOR REASON SPECIFIED IN ARG 

133 

4000 

FREE* 

4000 

/••FREE PARTITION 

134 

135 

136 

137 

130 


IPDEF UOC «AO*0)OO*1|DI*2)BC*3)ECM)RC*S 

OC*6lECT*7)CSil0|DCT*l1)41*12* 

/TASK STATUS FLAGS! 

139 

14P 

4000 

NONRMT* 

4000 

/♦•NONRESIDENT TASK WAIT 

1«1 

2000 

EPWT* 

2000 

/EVENT FLAG WAIT 

142 

1000 

RUNWT* 

1000 

/SCHEDULE WAIT 

143 

0400 

SwPWT* 

0400 

/♦♦SWAPPER WAIT 

144 

0200 

EORMWT* 

0200 

/EVENT FLAG OR MESSAGE WAIT 

195 

0100 

USERWT* 

0100 

/USER SPECIFIED WAIT 

146 

0040 

ENABWT* 

0040 

/ENABLE WAIT 

147 

0020 

MSGWT* 

0020 

/MESSAGE WAIT 

140 

0010 

NETWT* 

0010 

/NETWORK WAIT (RESERVED FOR POSSIBLE FUTURE 

149 

0001 

DNEWT* 

0001 

/••DOES NOT EXIST WAIT 


234 




I 


/PARAMETERS FOR RTS*S TASKS (VERSION PAL8-V9D 09/11/73 PAGE 4 


150 

151 

152 

153 

154 

155 

156 

157 
15S 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 


/SYSTEM LOCATIONS! 


1176 

1244 


MSGTBlt 120>«2 

TSTABL* NTASK892 w 2*MS6TBL»4 


1367 TFTABLi NTA3K8***44T8TABL«1 


IPDEF SNAPPER « 

1414 RESTBL* TFTABL+NTASK8*1 

142B PARTBLa NTA3KS<SWAPPER*2«RESTSL*S67774 

B043 COMMAN0«4S 


/TASK MEI8A6E TABLE 
/TASK STITE TABLE • H0L08 
/TASK LI !K,UM,OF,ZF,PC,AC,MQ 
/TASK FUGS TABLE • MOLDS 
/TASK ST ITUS FLAGS 


'RESIDENCY TABLE 
'PARTITION TABLE 
'SWAPPER COMMAND BUFFER 


0035 

TSWFLGa 

33 

0036 

TOOL* 

36 

0037 

TOOHa 

37 

0040 

DATE* 

40 

0041 

MCREFa 

41 


/TASK SM INHIBIT FLAG IN FIELD • 
/LOW ORDER TIME OF DAY IN FIELO G 
/HIGH ORDER TIME OF DAY IN FIELO 0 
/DATE IN OSS FORMAT IN FIELO 0 
/MCR START EVENT FLAG IN FIELO 0 



/parameters 

FOR RTS 

-8 TASKS (VERSION 

PAL6-V9D 09/11/75 PAGE 

3 

169 



/TASK 

TABLE SETUP • "TASK", "CUR","INIWT" AND 

"START" 

170 

17 j 



/MUST 

BE DEFINED BY TASKI 


172 


1216 


• T ASK *2»MSGT8L 



173 

01216 

0000 


ZBLOCK 2 

/MESSAGE BUFFER INITIALLY CLEAR 

174 


1304 


*TA8K"4*TSTABL 



175 

01304 

0000 


CURX10ACUR 

/INITIAL FLAGS 


176 

01305 

4200 


START 



177 

01306 

0000 


0 

/INITIAL AC 0 


178 


1377 


*TASK♦TFTABl 



179 

01377 

0000 


INIWT 





236 
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180 

181 

182 

183 

164 

183 

166 

187 

168 

169 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 
213 
216 

217 

218 

219 

220 
221 
222 
223 


/RK8 DRIVER FOR RT86 V2 6/30/74 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT CC) 1974,1973 BY DIGITAL EGJIPMENT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/THE INFORHATION IN THI* DOCUMENT 18 SUBJECT TO CHANGE WITHOUT NOTICE 
/AND 8H0ULD NOT BE CONSTRUED A8 A COMMITMENT BY DIGITAL EQUIPMENT 
/CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT, 

/ 

/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNI8HC0 TO THE PURCHASER 
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIEO 
/(WITH INCLUSION OF OIGITAL'S COPYRIGHT DOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDEO IN WRITING BY OIGITAL, 

/DIGITAL EQUIPMENT CORPORATION ASSUMES N< RESPONSIBILITY FOR THE USE 
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
/DIGITAL, 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


/RK8 DRIVER FOR RT86 V2 
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224 



/ACCEPTS STANDARD MASS*] 

225 






226 


0010 

TASK* 

RK6 


227 


0000 

INIWT* 

0 


226 


0000 

CUR* 

0 


229 






230 


6732 

DLOC* 

6732 


231 


6735 

DLCA* 

6755 


232 


6753 

OLWC> 

6753 


233 


6733 

DIOR* 

6733 


234 


6745 

DSKO* 

6745 


233 


6747 

DSKE* 

6747 


236 


6742 

OCLS* 

6742 


237 


6741 

DR08- 

6741 


236 


6734 

ORDA* 

6734 


239 


6751 

OCLA* 

6751 


240 






241 


0000 


FIELD 

CURX10 

242 


4200 


*4200 


243 



TMP, 



244 

04200 

4020 

START, 

CAL 


245 

04201 

0006 

DONEFG, 

SKPINS 


246 

04202 

4310 

TRYCT, 

INTRPT 


247 






248 

04203 

4020 

LOOP, 

cal 


249 

04204 

0001 


RECEIV 


250 

04205 

0000 

AOOR, 

0 


251 

04206 

3246 


OCA 

FLO 

252 

04207 

2201 


I8Z 

DONEFG 

253 

04210 

7240 


STA 


254 

04211 

1205 

DOAGIN, 

TAD 

AOOR 

255 

04212 

6002 


IOF 


256 

04213 

4252 


JMS 

INIT 

257 

04214 

1377 


TAO 

(FSTINT 

258 

04215 

3316 


DCA 

IOISP 

259 

04216 

7346 


AC7775 


260 

04217 

6001 


ION 


261 

04220 

3202 


DCA 

TRYCT 

262 

04221 

4020 


CAL 


263 

04222 

0002 


WAITE 


264 

04223 

4201 

PDONFG, 

DONEFG 


265 

04224 

1201 


TAD 

DONEFG 

266 

04223 

7650 


SNA CLA 


267 

04226 

5231 


JMP 

NOPFAL 

268 

04227 

1376 


TAD 

(«4 

269 

04230 

5211 


JMP 

DOAGIN 

270 

04231 

4245 

NOPFAL, 

JMS 

GET 

271 

04232 

7600 

P7600, 

7600 


272 

04233 

1243 


TAD 

STATUS 

273 

04234 

3605 


OCA I 

ADDR 

274 

04235 

1246 


TAO 

FLO 

275 

04236 

3243 


OCA 

PPLO 

276 

04237 

1205 


TAO 

AOOR 

277 

04240 

1375 


TAD 

(*7 

278 

04241 

4020 


CAL 



/GET A MESSAGE 


/START UP THE OLE DISK 
/INITIALIZE INTERRUPT DISPATCH 


/TRY 3 TIMES 


/WAIT FOR COMPLETION 


/IF EVENT FLAG STILL NON-ZERO, WE 
/MUST HAVE HAO A POWER FAILURE 

/THIS JUST SETS THE OF AND ADDR 


/GET POINTER TO MESSAGE EVENT FLAG 


236 




/RK8 DRIVER FOR RTS* V2 


PALB-V9D 09/11/»5 PAGE 7*1 


f 79 
2*0 

04242 

0089 

STATUS, 

POST 

2*1 

04243 

7402 

PFLD, 

HLT 

2*2 

283 

04244 

5203 


JMP 

2*4 

04243 

0000 

BET, 

0 

2*5 

04246 

7402 

FLO, 

HLT 

£•* 

04247 

2205 


ISZ 

2*7 

04290 

1609 


TAD X 

2*8 

04251 

9645 


JMP I 


LOOP /GET ANOTHER MI'SSAGE 


ADDR 

AOOR 

GET 


239 


/RK8 DRIVER FOR RTS* V2 PAL8-V9D 19/11/71 PAGE 8 

2*9 /RK* STARTUP SUBROUTINE • CALLED KITH Ilf 

290 04252 0000 XNlTi • 


291 

04253 

3205 


OCA 

ADDR 

292 

04254 

6742 


DCLS 


293 

04255 

4245 


JMS 

GET 

294 

04256 

7104 


CLL RAL 


293 

04257 

0374 


ANO 

(7 

296 

04260 

3200 


OCA 

TMP 

297 

04261 

2205 


xsz 

AOOR 

298 

04262 

1605 


tad I 

AOOR 

299 

04263 

0373 


ANO 

(70 

300 

04264 

1200 


TAD 

TMP 

301 

04265 

1372 


TAO 

(6B0B 

302 

04266 

6732 


DLDC 


303 

04267 

1605 


TAB I 

ADDR 

304 

04270 

7004 


RAL 


305 

04271 

0232 


AND 

P7600 

306 

04272 

7440 


SZA 


307 

04273 

7041 


CIA 


308 

04274 

6753 


BLWC 


309 

04275 

7006 


rtl 


310 

04276 

1371 


TAD 

(BLDR 

311 

04277 

3306 


DCA 

INST 

312 

04300 

7240 


STA 


313 

04301 

2205 


ISZ 

AOOR 

314 

04302 

1605 


TAD I 

ADDR 

315 

04303 

6755 


DLCA 


316 

04304 

2205 


ISZ 

AODR 

317 

04305 

1605 


TAO I 

ADDR 

318 

04306 

7402 

INST, 

HLT 


319 

04307 

5652 


JMP I 

INIT 

320 






321 

04310 

0000 

INTRPT, 

010 


322 

04311 

0000 




323 

04312 

6745 


OSKD 


324 

04313 

5710 


JMP I 

INTRPT 

325 

04314 

6203 


COF GIF 

CUR 

326 

04315 

5716 


JMP I 

.«! 

327 

04316 

4350 

XOXSP, 

IGNORE 


328 

04317 

6202 


CIF 0 


329 

04320 

5424 


POSTDS 



/ADDRESS OP PARjMETER BLOCK m\ IN AC 
/CLEAR OIBK STATUS 

/GET 2*UNXT NUM(ER 


/GET 08/6 STYLE I/O CONTROL WORD 

/EXTRACT FIELD 

/ENABLE DONE INTERRUPT ONLY 
/LOAO RKS COMMAND REGISTER 
/RE«PETCH CONTROL WORD 


/PRESERVE LINK 
/AROUND NEGATE 
/LOAD RKS WORD COUNT 

/FORM READ OR WRITE OP 


/GET START AODR •! 

/TO RKS HARDWARE CA REGISTER 
/GET BLOCK NUMBER 

/READY, STEADY * SOI 


/SKIP CHAINING G3ES HERE 


/SET OF AND IP ORRECTLY 

/IGNORE INITIAL INTERRUPT 
/IDXSP IS A CORO JUNE WITH 
/THE RTS.B INTERRUPT SYSTEM 


?40 





/P«s OPIVCft FOP RTSS V2 


PALS-VfD st/t-./rs PACE 9 


330 



/RKfl INTERRUPT 

SERVICE 

33/ 

04321 

6741 

TRYAGN, DR08 


333 

04322 

0370 

ANO 

(40 

33« 

04323 

6742 

0CL8 


335 

04324 

7650 

SNA CLA 


336 

04325 

5332 

JMP 

NOTKSK 

337 

04326 

6751 

OCLA 


338 

04327 

1372 

TAD 

(6000 

339 

04330 

6732 

OLDC 


340 

04331 

4316 

JMS 

IDI8P 

341 

04332 

1205 

NOTKSK, TAD 

ADOR 

342 

04333 

1376 

TAD 

(■4 

343 

04334 

4252 

JMS 

INIT 

344 

04335 

4316 

GOAWAV, JMS 

IOISP 

345 





346 

04336 

6747 

PSTINT, DSKE 


347 

04337 

5347 

JMP 

RKOVER 

340 

04340 

6741 

DRD8 


349 

04341 

0367 

AND 

(4 

350 

04342 

7640 

SZA CLA 


331 

04343 

5354 

JMP 

TRKOV 

352 

04344 

2202 

I8Z 

TRYCT 

353 

04345 

5321 

JMP 

TRYAGN 

354 

04346 

6741 

DRDS 


355 

04347 

3243 

RKOVER, OCA 

STATUS 

356 

04350 

6742 

IGNORE, DCLS 


357 

04351 

1223 

TAD 

PDONF i 

350 

04352 

4316 

JMS 

loisr 

359 

04353 

7402 

HALT, HLT 


360 





361 

04354 

1306 

TRKOV, TAD 

ins r 

362 

04355 

3362 

DCA 

OV’NST 

363 

04356 

6742 

DCLS 


364 

04357 

6734 

DRDA 


365 

04360 

0366 

AND 

(7760 

366 

04361 

1365 

TAD 

*20 

367 

04362 

7402 

OVlNST, HIT 


368 

04363 

5335 

JMP 

GOAWAV 

369 

04365 

0020 



370 

04366 

7760 



371 

04367 

0004 



372 

04370 

0040 



373 

04371 

6733 



374 

04372 

6000 



375 

04373 

0070 



376 

04374 

0007 



377 

04375 

7771 



370 

04376 

7774 



379 

04377 

4336 



300 


4400 

FACE 


301 



IS 



/CHECK FOP TRACK SEEK ERROR 
/IF ME GOT ONE 

/ME HAVE TO RECALIBRATE THE OXSK 

/RE-ENABLE INTERRUPT ON COMPLETION 
/AND ‘<AIT UNTIL COMPLETION 

/BACK UP THE AD0RES3 POINTER 


/ER40RT 

/Nfi • WE'RE DONE 

/'.HECK FOR TRACK OVERFLOW 
/WHICH OOEtN'T COUNT At AN ERROR 
BUT Al A HAROMARE DEFICIENCY 
/XT3 A MORE 3ERI0U3 ERROR • HOW MANY 
/TIMES HAVE WE HIT ITt 
/TOO HANY • RETURN DISK STATUS REGISTER 

/CLEAR NASTY FLAGS 

/GOING TO P0ST08 WITH THE AC NON-ZERO 
/WAKES UP THE HANDLER TO CLEAN UP 
/FOR 8000 LUCK 


/COPY READ OR WRITE INST (CLUHSV1) 

/WIPE SLATE CLEAN 

/WE MUST BUMP THE OISK ADDRESS 

/TO THE NEXT TRACK 

/BY HANO 

/DO REMAINDER OF OPERATION 


241 


/RK 8 DRIVER FOR 

RTSS V2 


PALS< 

AC0002 

7326 

LTA 0006 

TRYAGN 

4321 

AC2000 

7332 

MC7. 0005 

TRYCT 

4202 

AC3777 

7358 

MCREF 0041 

TSTABL 

1244 

AC4000 

7330 

MCRSYS 0001 

TSWFLG 

0035 

AC 7775 

7346 

MSGTBL 1176 

TTY 

S003 

AC7776 

7344 

MSGWT 0020 

UNBARG 

0012 

ADOR 

4205 

NETWT 0010 

USERWT 

0100 

blkarg 

0010 

NONRWT 4000 

WAITE 

0002 

CAL 

4020 

NOPFAL 4231 

WAITM 

4425 

CHECKP 

0001 

NOTKSK 4332 



CLMJLN 

0020 

NTASKS 0023 



ClKTYP 

0000 

OSFILL 0004 



CLOCK 

0001 

QSFLOS 0002 



COMMAS 

0043 

OSKBDV 0030 



C3A 

0013 

OSSVSD 0010 



CSAF 

0014 

OSTTDV 0031 



CUR 

0000 

OSS 0023 



DATE 

0040 

OSSF 0020 



OCLA 

675' 

OVlNST 4362 



DCLS 

6742 

PARTBL 1420 



derail 

0007 

PARTN3 0000 



0F32 

0012 

POONFG 4223 



OLCA 

6755 

POP 12 0000 



DLOC 

6732 

P0P8E 0001 



OLOR 

>733 

PFLD 4243 



DLWC 

6753 

POST 0005 



DNEWT 

0001 

POSTOS 5424 



DOAGIN 

4211 

PWRF 0002 



DONEFG 

4201 

PWRFAL 0001 



DROA 

6734 

P7600 4232 



DR03 

6741 

RECEXV 0001 



OSKr» 

6745 

RESTBL 1414 



DSKE 

6747 

RF0S 0011 



OTi 

0007 

RKOVER 4347 



EAE 

0001 

RKS 0010 



E fc -wT 

2000 

RUN 0003 



FNABWT 

0040 

RUNWT 1000 



'•ORMWT 

0200 

RK6A 0017 



FLO 

4246 

SEND 0000 



FREE 

4000 

SENDW 0011 



fstint 

4336 

SHERTZ 0074 



GET 

4245 

SKPINS 0006 



GOAWAV 

4335 

START 4200 



HALT 

4353 

STATUS 4243 



HERTZ 

0170 

sunit 0000 



HGHFLO 

0030 

SUSPND 0004 



ICS 

0016 

SWAPRE 0021 



imsp 

4316 

SWPWT 0400 



IGNORE 

4350 

SYS 0010 



INIT 

4252 

TASK 0010 



INIWT 

0000 

TFTABL 1367 



INST 

4306 

THP 4200 



INTPPT 

4310 

TODH 0037 



LOOP 

4203 

tool 0036 



LPT 

0004 

TRKOV 4354 




04/11/73 PAGE 10 


24? 






ERRORS DETECTEDI I 
LINKS GENERATED I 0 


243 


AC0002 

112 # 



AC2000 

111 # 



AC3777 

110 # 



AC4000 

109# 



AC7775 

106# 

259 


AC7776 

107# 



ADOR 

250# 

254 

273 


313 

314 

316 

AO 

135# 



BIKARG 

130# 



CAL 

116# 

244 

248 

CHECK* 

54# 



CLKQLN 

95# 



clktv* 

94# 



CLOCK 

63# 

93 


COMMA* 

160# 



CS 

138# 



CSA 

74# 



C5AF 

75# 



CT 

136# 



CUR 

175 

175 

226# 

DATE 

166# 



OCLA 

239# 

337 


DCLS 

236# 

292 

334 

derail 

129# 



OF32 

73# 



OLCA 

231# 

313 


OLOC 

230# 

302 

339 

OLOR 

233# 

310 


OLWC 

232# 

308 


ONEWT 

149# 



OOAGIN 

294# 

269 


OONEFG 

245# 

252 

264 

ORDA 

238# 

364 


OROS 

237* 

332 

346 

DSKO 

234# 

323 


DSKF 

235# 

346 


DTA 

69# 



EAE 

90# 



EFWT 

141# 



ENABWT 

146# 



EORMWT 

144# 



'LD 

251 

274 

285# 

FREE 

133# 



FSTINT 

257 

346# 


GET 

270 

264# 

266 

goaway 

344# 

368 


halt 

359# 



HERTZ 

97# 



HGHFLO 

52# 



ICS 

76# 



IDISR 

298 

327# 

340 

IGNORE 

327 

356# 


INIT 

256 

290# 

319 

INIWT 

179 

227# 


INST 

311 

316# 

361 

INTRRT 

246 

321# 

324 

LOOP 

248# 

262 


LFT 

66 # 




276 266 287 261 297 

317 341 

262 276 


241 325 

396 363 

269 

394 


293 

344 398 

343 


l>6 303 


244 




LTA 

III 




NCR 

67# 

99 



HCREP 

167# 




MCR8Y8 

51# 




M86TBL 

152# 

153 

172 


H88WT 

147# 




NETWT 

146# 




NOPFAl 

267 

279# 



N0TK8K 

336 

341# 



NTA8K8 

53# 

76 

153 

155 

08FILL 

66# 


08FL08 

•4# 




08KBDV 

65# 




08SYSD 

67# 




08TT0V 

66# 




088 

76# 

83 



086F 

79# 




OVINST 

362 

367# 



PARTBL 

159# 




PARTNS 

55# 




P00NP6 

264# 

357 



P0P12 

49# 




P0P8E 

46# 




PPIO 

275 

261# 



POST 

127# 

279 



P08T08 

117* 

329 



PWRF 

64# 




PWRPAl 

51# 




P7600 

271# 

305 



RECEIV 

123# 

249 



RE8TBL 

156# 

159 



RF08 

72# 




RKOVER 

347 

355# 



RK8 

71# 

67 

102 

226 

RUN 

125# 



RUNNT 

142# 




RX8A 

77* 




SEND 

122# 




SENOW 

131# 




8HERT2 

96# 




8KPIN8 

126# 

245 



START 

176 

244# 



STATUS 

272 

200# 

355 


SUNIT 

103# 




SUSPND 

126# 




SWAPPE 

70# 

101 

157 

159 

3WPWT 

143# 



SYS 

102# 




TASK 

172 

174 

176 

226# 

TFTABl 

155# 

156 

170 


TMP 

243# 

296 

300 


TOOH 

165# 




TOOL 

164# 




TRKOV 

351 

361# 



TRYAGN 

332# 

353 



TRYCT 

246# 

261 

352 


tstabl 

153# 

155 

174 


T3WFLG 

163# 




TTY 

65# 




UOC 

135 





245 


UNBARG 

132# 


USERWT 

145# 


WAITE 

124# 

263 

WAITM 

116# 


*04365 

366 


104366 

365 


104367 

349 


*04370 

333 


*04371 

310 


104372 

301 

336 

*04373 

299 


*04374 

295 


*04375 

277 


*04376 

266 

342 

*04377 

257 



V3 


246 



1 


/PARAMETERS FOR RTS-S TASKS 


(VERSION PALS-V9D 09/11/73 PACE 1 


1 

2 

3 

A 

5 

6 
T 
S 

9 

10 

11 

12 

13 

14 
13 
16 
17 

15 

19 

20 
21 
22 

23 

24 

25 

26 
27 
2S 

29 

30 

31 

32 

33 

34 
33 

36 

37 
36 

39 

40 

41 

42 

43 

44 


/PARAMETERS FOR RTS»S TASKS (VERSION ,*) 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYR1QHT (C) 1974,1979 BY DIGITAL EQUIPMENT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/THE INFORMATION IN THIS DOCUMENT IS SUBJICT TO CHANGE WITHOUT NOTICE 
/AND SHOULD NOT BE CONSTRUED AS A COMMITMt NT BY DIGITAL EQUIPMENT 
/CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS OCCUMENT, 

/ 

/THE SOFTNARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
/UNDER A LICENSE FOR USE ON A SINGLE COMF1 TER SYSTEM AND CAN BE COPIED 
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NCTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY OIGITAL, 

/ 

/OIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
/DIGITAL, 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


/PARAMETERS FOR RTS«6 TASKS 


(VERSION PALS*V90 09/11/73 I AGE 2 


45 

46 

47 
46 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 


/RTSS V2 EXEC PARAMETERS • EDITED BY USER 

•001 PDP6EM 
0000 POP12«0 

0001 EAE>1 
0001 PWRFALPl 
0030 HGHFLDB30 
0023 NTASKS«23 
0001 CHECKPTPl 
0000 PARTN8«0 

/(THE N PARTITIONS ARE NUMIEREO FROM B TO N-l) 
/COMMON TASK NUMBERS • EDITED BY USER 

/IT IS AOVISABLE TO DEFINE ALL TASKS HERE, NAMES GIVEN BELOW 
/ARE USED BY SOME SYSTEM TASKS ANO SHOULD BE DELETED FROM THIS 


61 


/LIST IF THE CORRESPOI 

62 



63 

0001 

CLOCK*! 

64 

0002 

PWRF«2 

65 

0003 

TTY*3 

66 

0004 

LPTM 

67 

0003 

MCRbS 

68 

0006 

LTA«6 

69 

0007 

DTA»7 

70 

0021 

SWAPPER«21 

71 

0010 

RK4M0 

72 

0011 

RP08»11 

73 

0012 

0F32*12 

74 

0013 

CSA*13 

75 

0014 

CSAF*14 

76 

0016 

ICS*16 

77 

0017 

RX4A*1 7 

7M 

0023 

OSSaNTASKS 

79 

0020 

OS8F*20 

60 



81 


/SOFTWARE PARAMETERS < 

82 



83 


IFOEF OSS 

44 

0002 

OSFLDSbS 

45 

0030 

OSK0OVP30 

86 

0031 

03TTDV*31 

87 

0010 

OSSYS0*RK4 

68 

0004 

03FILLM 

49 


> 

90 


IFOEF MCR 

91 

0001 

MCRSYS'l 

92 


> 

93 


IFOEF CLOCK 

94 

0000 

CLKTYP-0 

95 

0020 

CLKQLNB20 

96 


DECIMAL 

97 

0170 

HERTZM20 

96 

0074 

SHERT Z *60 

99 


OCTAL 


246 





/PARAMETERS FOR RTS*8 TASKS 


(VERSION PALS*V9D 09/11/79 PAGE 2-1 


100 

101 

102 

103 

104 


ZPOEF 

0010 SYS*RKS 
0000 SUNITM0 


SNAPPER < 


249 


/PARAMETERS FOR RTS-6 TASKS 


(VERSION PALS-V9D 09/11/79 *A6E 3 


107 

7344 

AC7776* 

CLL 

STA 

RAL 

108 

7346 

AC7779* 

CLL 

STA 

rtl 

109 

7330 

AC4000* 

CLA 

STL 

RAR 

110 

7350 

AC3777* 

CLL 

STA 

RAR 

111 

7332 

AC2000■ 

CLA 

STL 

RTR 

112 

113 

1 1 A 

115 

116 

7326 

AC0002* 

CLA 

STL 

rtl 


/MONITOR CALL VALUESI 

4020 

CAL* 

JM8 


20 /CALL THE EXECUTIVI 

117 

5424 

POSTDS* 

JMP 

I 

24 /DISMISS AN INTERRUPT 

118 

119 

120 

121 

4425 

WAITM* 

JMS 

I 

25 /WAIT FOR MULTIPLE EVENTS 

/NOTES "*•" MEANS CRITICAL VALUE MAY NOT 
/BE CMANGED WITHOUT MODIFY] NG SYSTEM CODEH 

122 

0000 

SENO* 

0 


/SEND MESSAGE 

123 

0001 

RECEIV* 

l 


/RECEIVE MESSAGE 

124 

0002 

WAITE- 

2 


/WAIT FOR EVENT FLAG 

125 

0003 

RUN* 

3 


/CONTINUE TASK EXECUTION 

126 

0004 

SU8PND* 

4 


/SUSPEND TASK EXECUTION 

127 

0005 

POST* 

5 


/POST AN EVENT FLAG 

128 

0006 

SKPINS* 

6 


/INSERT CODE INTO INTERRUP1 SKIP CHAIN 

129 

0007 

DERAIL* 

7 


/INITIATE END-ACTION 

130 

0010 

rlkarg* 

10 


/BLOCK TASK FOR REASON SPECIFIED IN ARG 

131 

0011 

SENOW* 

11 


/SEND MESSAGE ANO WAIT 

132 

0012 

UNBARG* 

12 


/UNSLOCK TASK FOR REASON SPECIFIED IN ARG 

133 

134 

135 

136 

137 

4000 

FREE* 

4000 /**FREE PARTITION 

IFOEF UDC <AO*0fDO«lf0Z*2fGCa3fEC*4fRC*5 

DC*6fECT*7fCS*10fDCT*llfA!*l2» 

138 

139 


/TASK STATUS 

FLAGS! 

140 

4000 

NONRWT* 

4000 


/••NONRESIDENT TASK WAIT 

141 

2000 

EFWT* 

2000 


/EVENT FLAG WAIT 

142 

1000 

RUNNT* 

1000 


/SCHEDULE WAIT 

143 

0400 

8WPMT* 

0400 


/**SWAPPER WAIT 

144 

0200 

EORMNT* 

0200 


/EVENT FLAG OR MESSAGE WAIT 

145 

0100 

USERNT* 

0100 


/USER SPECIFIED WAIT 

146 

0040 

ENABNT* 

0040 


/enable WAIT 

147 

0020 

MSGWT* 

0020 


/MESSAGE WAIT 

148 

0010 

NETWT* 

0010 


/NETWORK WAIT (RESERVED FOR POSSIBLE FUTURE 

149 

0001 

ONEWT* 

0001 


/••DOES NOT EXIST WAIT 


250 



» 


(VERSION RAL8-V90 Bf/U/7'1 RACE 4 


/SYSTEM LOCATIONS! 

UTS MSGTBl* 120S*2 

1244 TSTABLP NT ASKS*2*24M8GT8L»4 

1367 TFTABL" NTA8K8t2* , 4*TSTABL»l 


/TASK MI'SSAGE TABLE 
/TASK S"ATE TABLE • KOLOS 
/TASK L :nk,um,dp,xf,rc,ac,mq 
/TASK RI.A6S TABLE • KOLOS 
/TASK STATUS FLAGS 




IFOEF 

SHARPER 4 



1414 

RESTBL" 

TFTABL6NTASKS62 

/RESIDENCY 

TABLE 

1420 

PARTBL- 

NTA8K8«SWARRER*2*RESTBL63S7774 

/PARTITION 

TABLE 

0043 

C0MMANDM3 

» 


/SHARPER COMMAND BUFFER 

0035 

TSNPLG" 

35 

/TASK SH XNMXBIT FLAG 

IN FIELD 0 


0036 

TOOL" 

36 

/LOH ORDER TXME OF DAY 

XN PXELO 0 


0037 

TOOK" 

37 

/HIGH ORDER TXME OF OAY 

IN field 0 


0040 

DATE" 

40 

/DATE XN OSS FORMAT 

XN FIELD 0 


0041 

MCREP" 

41 

/MCR START EVENT FLAG 

IN FIELD 0 
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/PARAMETERS FOR RTS-8 TASKS (VERSION RAL8-V9D 09/11/7! RAGE S 

169 /TASK TABLE SETUP • "TASK", "CUR","INir ", AND "START" 

170 /MUST BE DEFINED BY TASK! 


172 


1216 

*TASK*2PMSGTBL 



173 

01216 

0000 

ZBLOCK 2 

/MESSAGE 

BUFFER INITIALLY CLEAR 

174 


1304 

•TASK»44TSTABL 


175 

01304 

0000 

CURX106CUR 

/INITIAL 

FLAGS 

176 

01305 

4200 

START 



177 

01306 

0000 

0 

/INITIAL 

AC 0 

178 


1377 

"TASKPTFTABL 



174 

01377 

0000 

INI WT 
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180 

181 
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183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 
223 
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/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 
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/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/THE INFORMATION IN THIS DOCUMENT IS 8UIJICT TO CHANGE WITHOUT NOTICE 
/AND SHOULD NOT BE CONSTRUED A8 A COMMITMENT BY DIGITAL EQUIPMENT 
/CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS OOCUMENT. 

/ 

/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIEO 
/(WITH INCLUSION OF DIGITAL’S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 
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/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 
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/ 
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224 


225 


0010 

TASK* 

RK8 


226 


0000 

INIWT■ 

0 


227 


0000 

CUR- 

0 


228 






229 


6741 

OSKP* 

6741 


230 


6742 

OCLR* 

6742 


231 


6743 

DL AG* 

6743 


232 


6744 

OLCA* 

6744 


233 


6745 

ORST* 

6745 


234 


6746 

DLOC* 

6746 


235 






236 


0000 


FIELD 

CURX1B 

237 


4200 


*4200 


238 



TMP, 



239 

04200 

4020 

START, 

CAL 


240 

04201 

0006 

DONEFG, 

SKPIN3 


241 

04202 

4400 

TRYCT, 

INTRPT 


242 






243 

04203 

4020 

LOOP, 

CAL 


244 

04204 

0001 


RECEIV 


245 

04205 

0000 

ADDR, 

0 


246 

04206 

3307 


DCA 

FLO 

247 

04207 

7346 


AC7775 


248 

04210 

3202 


DCA 

TRYCT 

249 

04211 

2201 

INIT, 

I8Z 

DONEFG 

250 

04212 

7160 


CMA STL 


251 

04213 

1205 


TAD 

ADOR 

252 

04214 

3205 


DCA 

ADOR 

253 

04215 

4306 


JMS 

GET 

254 

04216 

1377 


TAD 

(•4 

255 

04217 

0376 


AND 

(3 

256 

04220 

7004 


RAL 


257 

04221 

3313 


DCA 

PAGCNT 

258 

04222 

4306 


JMS 

GET 

259 

04223 

0375 


ANO 

(7770 

260 

04224 

1313 


TAO 

PAGCNT 

261 

04225 

3313 


DCA 

PAGCNT 

262 

04226 

4306 


JMS 

GET 

263 

04227 

6744 


DLCA 


264 

04230 

7301 


CLA CLL 

I AC 

265 

04231 

0313 


ANO 

PAGCNT 

266 

04232 

7640 


SZA CLA 


267 

04233 

1374 


TAD 

(6260 

268 

04234 

4306 


JMS 

GET 

269 

04235 

3306 


DCA 

REC 

270 

04236 

1313 


TAO 

PAGCNT 

271 

04237 

0373 


AND 

(4076 

272 

04240 

7430 


SZL 


273 

04241 

7001 


I AC 


274 

04242 

1372 


TAD 

(400 

275 

04243 

3314 


OCA 

CR 

276 

04244 

1313 


TAO 

PAGCNT 

277 

04245 

0371 


AND 

(3700 

278 

04246 

7450 


SNA 



/GET A MESSAGE 


/TRY 3 TIMES 
/INITIALIZE EVEN1 FLAG 
/** AC MAY BE 3 ►ERE ** 

/ADDRESS OF PARAMETER BLOCK «1 IN AC 

/PROPAGATE BIT If INTO THE LINK 
/CLEAR ALL HIGH-CRDER BITS 
/ROTATE BIT 10 IATO LOW*ORDER BIT 
/STORE TRANSFORMED UNIT 

/GET FUNCTION WORD, 

/COMBINE WITH UNIT NUMBER 
/ANO STORE IT AWAY 

/PUT STARTING TRANSFER ADDRESS IN HAROWARE 


/"UNIT" • DI3K*2*HALP • CHECK WHICH HALF 
/SECOND HALF • ADO BLOCK NUMBER OFFSET 
/TO BLOCK NUMBER 
/SAVE LOW ORDER 

/GET UNIT BITS, FIELO BITS AND READ/WRITE BIT 

/ADD HIGH ORDER BLOCK NUMBER 

/ADD INTERRUPT ENABLE BIT 

/STORE AS SKELETON COMMAND REGISTER 

/ISOLATE PAGE COUNT FIELO 
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279 

04247 

7330 


AC4000 


/ALLOW FULL FIELD TRANSFERS 

211 

04250 

3313 


DC A 

RAGCNT 


281 

04251 

1313 


TAO 

RAGCNT 


282 

04252 

• 347 


AND 

RK7600 

/IF ENTIRE TRANSFER IS ONE RAGE, 

285 

• 4253 

7650 


SNA CLA 



284 

04254 

1370 


TAD 

(100 

/SET "ONE*RAGE TRANSFER" BIT IN COMMAND REG 

285 

04255 

6002 


IOF 


/INTERRUPTS OFF WHILE LOADING REGISTERS! 

284 

• 4256 

4331 


JM8 

RKSETR 

/START TRANSFER AMD SET UR NEXT ONE 

287 

04257 

1367 


TAD 

(FSTINT 


288 

04260 

6201 


CDF CUR 



284 

04241 

6001 


ION 


/** NOTE THE "OCA IDISR" MUST BE THE NEXT XN8TR 

290 

• 4242 

3766 


DCA I 

(IDISR 

/INITIALIZE INTERRUPT DISPATCH 

291 

04263 

4020 


CAL 



292 

04264 

0002 


NAITE 



293 

04265 

4201 

RDONFG, 

OONEFG 


/WAIT FOR COMPLETION 

294 

04266 

1376 


TAD 

(3 

/LOAD CONSTANT FOI BACKING UR ADDR 

295 

04267 

2305 


ISZ 

RTRYFG 

/DID EVENT FLAG SIGNIFY ERROR OR COMPLETION? 

296 

04270 

5211 


JMR 

INI T 

/ERROR OR PWR FAX . . RETRY ENTIRE OPERATION 

297 

04271 

4306 


JMS 

GET 

/THIS JUST SETS HE OF AND ADOR 

298 

04272 

7600 

P7600 , 

7600 



294 

04273 

1303 


TAD 

STATUS 


300 

04274 

3605 


DCA I 

ADDR 


301 

04275 

1307 


TAD 

FLO 


302 

04276 

3303 


DCA 

rfld 


303 

04277 

1205 


TAD 

ADDR 


304 

04300 

1365 


TAD 

C-T 

/GET POINTER TO MESSAGE EVENT FLAG 

305 

04301 

4020 


CAL 



306 

04302 

0005 


ROST 



307 



STATUS, 




308 

04303 

7402 

RFLO, 

HLT 



304 

04304 

5203 


JMR 

LOOR 

/GET ANOTHER MESSAGE 

310 







311 

04305 

0000 

RTRYFG, 

0 


/RETRY FLAG 

312 







313 



REC, 


/LOW-ORDER BLOCK NUMBER 

314 

04306 

0000 

GET, 

0 



315 

04307 

7402 

FLO, 

HLT 



316 

04310 

2205 


ISZ 

ADDR 


317 

04311 

1605 


TAD I 

ADOR 


318 

04312 

5706 


JMR I 

GET 


314 







320 

04313 

0000 

RAGCNT, 

0 


/RAGE COUNT FOR TlAN8FER 

321 

04314 

0000 

CR, 

• 


/SKELETON COMMAND REGISTER CONTENTS 

322 

04315 

0000 

NEWCR, 

0 
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323 



/RK0 INTERRUPT 1 

SERVICE 



324 








325 

04316 

6745 

FSTINT, 

DRST 


/READ STATUS REGISTER 


326 

04317 

7104 


CLL RAL 


/4000 MEANS NO ERR3R8, 0 IS "IMPOSSIBLE" HERE 


327 

04320 

7640 


SZA CLA 


/ERROR? 


328 

04321 

5764 


JMR I 

(RKERR 

/ERROR ROUTINE IN 4EXT RAGE 


329 

04322 

1313 

RKNEXT, 

TAO 

RAGCNT 



330 

04323 

7750 


SPA SNA 

CLA 

/CHECK FOR LAST TRANSFER 


331 

04324 

5763 


JMR I 

(RKOVER 



332 

04325 

1315 


TAO 

NEWCR 

/GET PRECOMPUTED C JMMAND REGISTER CHANGES 


333 

04326 

4331 


JMS 

RKSETR 

/START NEXT TRANSFIR AND SET UR THE ONE AFTER 

THAT 

334 

04327 

6202 


CIF 0 




335 

04330 

5424 


ROSTDS 


/EXIT INTERRUPT ROJTINE - IDISR STILL EQUALS " 

FSTINT 

336 








337 

04331 

0000 

RKSETR, 

0 


/ROUTINE TO START IP A TRANSFER 


338 

04332 

1314 


TAO 

CR 

/AND PRECOMPUTE THI NEXT ONE, 


339 

04333 

6746 


OLDC 


/LOAD THE RK8E COM UNO REGISTER 


340 

04334 

1306 


TAD 

REC 



341 

04335 

6743 


OLAG 


/LOAD BLOCK NUMBER AND GO 


342 

04336 

1313 


TAD 

PAGCNT 



343 

04337 

1347 


TAO 

RK7600 

/WE PRECOMPUTE THE NEXT TRANSFER BECAUSE THE 


344 

04340 

3313 


DCA 

RAGCNT 

/RK8E HAS A VERY N VRROW WINDOW IN WHICH 


345 

04341 

2306 


ISZ 

REC 

/TO INITIATE THAT TRANSFER ONCE THE FLAG POPS 

UP, 

346 

04342 

7410 


SKP 




347 

04343 

2314 


ISZ 

CR 

/HIGH-ORDER BLOCK HUMBER IN COMMAND REGISTER 


34ft 

04344 

1306 


TAD 

REC 



■<49 

04345 

0362 


AND 

(37 

/IF WE ARE NOT GOlMG TO A NEW TRACK, 


350 

04346 

7161 


CIA STL 


/WE DON'T HAVE TO '.HECK HEADERS NEXT OPERATION 

1. 

351 

04347 

7600 

RK7600, 

7600 




352 

04350 

1313 


TAD 

PAGCNT 

/IF NEXT TRANSFER (3 HALF BLOCK, 


353 

04351 

0347 


AND 

RK 7600 

/WE MUST SET THE HVLF-BLOCK COMMAND BIT, 


354 

04352 

7650 


SNA CLA 




355 

04353 

1 361 


TAD 

(1000 



356 

04354 

7012 


RTR 


/LINK HAS "DON'T CHECK HEADER" BIT 


357 

04355 

7010 


RAR 




35ft 

04356 

3315 


DCA 

NEWCR 

/STORE SPECIAL COMMAND REGISTER BITS FOR NEXT 

TIME, 

359 

04357 

5731 


JMR I 

RKSETP 



360 

04361 

1000 






361 

04362 

0037 






362 

04363 

4441 






363 

04364 

4436 






364 

04365 

7771 






365 

04364 

4406 






366 

04367 

4316 






367 

04370 

0100 






36ft 

7)4371 

3700 






369 

04372 

0400 






370 

04373 

4076 






371 

04374 

6260 






372 

04375 

7770 






3 7 3 

04376 

0003 






374 

04377 

7774 






375 


4400 


PAGE 
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376 



/INTERRUPT SKIP 

CHAIN E 

377 





378 

04400 

0000 

INTRPT, 

010 


379 

04401 

0000 



360 

04402 

6741 


OSKP 


361 

04403 

5600 


JMP I 

INTRPT 

382 

04404 

6203 


CDF CIF 

CUR 

383 

04405 

5606 


JMP I 

.♦1 

364 

04406 

4445 

IDISP, 

IGNORE 

365 

04407 

6202 


CIF 0 


366 

04410 

5424 


P03TDS 


387 





386 

04411 

0377 

TRYAGN, 

ANO 

(401 

389 

04412 

7650 


SNA CLA 

390 

04413 

5231 


JMP 

NRECAL 

39! 

04414 

6742 


DCLR 

392 

04415 

7326 


AC0002 


393 

04416 

6742 


DCLR 


394 

04417 

4206 


JMS 

IDISP 

395 

04420 

1776 


TAD I 

(CR 

396 

04421 

0375 


AND 

(6 

397 

04422 

1374 


TAD 

(600 

398 

04423 

6746 


DLDC 


399 

04424 

4206 


JMS 

IDISP 

400 

04425 

6745 


DRST 


401 

04426 

7104 


CLL RAL 


402 

04427 

7640 


SZA CLA 


403 

04430 

5236 


JMP 

RKERR 

404 

04431 

6742 

NRECAL, 

DCLR 


405 

04432 

3773 

SETEF, 

DCA I 

(RTRYFG 

406 

04433 

1372 


TAD 

(OONEFG 

407 

04434 

4206 


JMS 

IDISP 

406 

04435 

7402 

HALT, 

hlt 


409 






410 

04436 

6745 

RKERR. 

DRST 


411 

04437 

2771 


ISZ I 

(TRYCT 

412 

04440 

5211 


JMP 

TRYAGN 

413 

04441 

3770 

RKOVER, 

DCA I 

(STATUS 

414 

04442 

6742 


DCLR 


415 

04443 

7240 


STA 


416 

04444 

5232 


JMP 

SETEF 

417 






418 

04445 

6742 

IGNORE, 

DCLR 


419 

04446 

5424 


POSTOS 


420 

04570 

4303 




421 

04571 

4202 




422 

04572 

4201 




423 

04573 

4305 




424 

04574 

0600 




425 

04575 

0006 




426 

04576 

4314 




427 

04577 

0401 




426 


4600 


PAGE 


429 




ss 



/SKIP CHAINING liOES HERE 


/SET OF AND IF CORRECTLY 

/IGNORE INITIAL INTERRUPTS 
/IDISP IS A COROUTINE WITH 
/THE RTS.S INTERRUPT SYSTEM 

/CHECK TO SEE If WE 
/HAVE TO RECALIfRATE 
/NO 

/CLEAR DISK STATUS 

/MYSTIC SEQUENCI OF INSTRUCTIONS WHICH 
/recalibrates A DRIVE 

/RECALIBRATE GEf ERATES A DONE FLAG ALMOST IMMEDIATELY, 
/AND A SEEK DON! SIGNAL WHEN IT IS FINISHED 
/THEREFORE WE MIST ENABLE THE SEEK DONE SIGNAL 
/TO SET THE DON! FLAG ANO CAUSE AN INTERRUPT, 

/NO SOONER SAID THAN DONCJ 
/WAIT FOR THE FINAL FLAG 

/IF THE RECALIBRATE GENERATED AN ERROR, 

/BOY ARE YOU IN TROUBLE! 

/CLEAR STATUS REGISTER 
/SET FLAG TO 0 OR >1 

/DISMISS ANO POST EVENT FLAG 
/CANNOT GET HERE! 

/READ STATUS REGISTER 

/HOW MANY TIMES ■PAVE WE BEEN THROUGH HERE? 

/ROOM FOR ONE MOtE, 

/SET STATUS TO 0 OR STSTUS REGISTER 
/CLEAR NASTY FLA3S (IF ANY) 

/INDICATE FINAL RETURN 
/AND ACTIVATE TASK 


/CLEAR FLAG AND )I8MISS 


/RKBE 

DRIVER 

FOR RTS8 V2 


PAL8- 

AC0002 

7326 

new 

0010 

TRYAGN 

4411 

AC2000 

7332 

NEWCR 

4315 

TRYCT 

4202 

AC3777 

7350 

nonrwt 

4000 

TSTABL 

1244 

AC4000 

7330 

NRECAL 

4431 

tswflg 

0035 

AC7775 

7346 

NTASKS 

0023 

TTY 

0003 

AC7776 

7344 

osfill 

0004 

UNBARG 

0012 

ADOR 

4205 

osflos 

0002 

USERWT 

0100 

BLKARG 

0010 

OSKBDV 

0030 

WAITE 

0002 

CAL 

4020 

OSSYSO 

0010 

WAITM 

4425 

CHECKP 

0001 

OSTTOV 

0031 



CLKQLN 

0020 

0S8 

0023 



CLKTYP 

0000 

0S8F 

0020 



CLOCK 

0001 

pagcnt 

4313 



COMMAN 

0043 

PART8L 

1420 



CR 

4314 

PARTNS 

0000 



C3A 

0013 

pdonfg 

4265 



CSAF 

0014 

POP 12 

0000 



CUR 

0000 

PDP8E 

0001 



DATE 

0040 

PFLD 

4303 



DCLR 

6742 

POST 

0005 



OERAIL 

0007 

POSTOS 

5424 



0F32 

0012 

PWRF 

0002 



DL AG 

6743 

pwrfal 

0001 



OLCA 

6744 

P7600 

4272 



DLDC 

6746 

REC 

4306 



DNEWT 

0001 

RECEIV 

0001 



OONEFG 

4201 

RESTBL 

1414 



DRST 

6745 

RF08 

0011 



DSKP 

6741 

RKERR 

4436 



DTA 

0007 

RKNEXT 

4322 



EAE 

0001 

RKOVER 

4441 



FFWT 

2000 

RkSETP 

4331 



ENARWT 

0040 

RK 7 600 

4347 



EORMNT 

0200 

RK8 

0010 



FLO 

4307 

RTRYFG 

4305 



FREE 

4000 

RUN 

0003 



fstint 

4316 

RUNWT 

1000 



GET 

4306 

RvS A 

0017 



halt 

4435 

SEND 

0000 



HERTZ 

0170 

SENDW 

0011 



HGHFLO 

0030 

SETEF 

4432 



ICS 

0016 

SHERTZ 

0074 



inisp 

4406 

SKPINS 

0006 



IGNORE 

4445 

start 

4200 



TNIT 

4211 

STATUS 

4303 



INIWT 

0000 

sunit 

0000 



INTRPT 

4400 

SUSPNO 

0004 



LOOP 

4203 

SwAPPE 

0021 



LPT 

0004 

SwPWT 

0400 



IT A 

0006 

SYS 

0010 



MCR 

0005 

TASK 

0010 



MCRtF 

0041 

tftabl 

1367 



MCRSVS 

0001 

TmP 

4200 



MSGT81 

1176 

TODH 

0037 



Mjr.wT 

0020 

TOOL 

0036 
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ERRORS DETECTEOI • 
LINKS GENERATEDI 0 


259 


AC0002 

112# 

392 




AC2000 

111# 





AC3777 

110# 





AC4000 

109# 

279 




AC7775 

108# 

247 




AC7776 

107# 





ADOR 

245# 

251 

252 

300 

303 

AO 

135# 





SLKARG 

130# 





CAL 

116# 

239 

243 

291 

305 

CHECKP 

54# 





CLKQLN 

95# 





CLKTVP 

94# 





CLOCK 

63# 

93 




COMMAN 

160# 





CR 

275 

321# 

330 

347 

395 

CS 

136# 





CS A 

74# 





CSAF 

75# 





CT 

136# 





CUR 

175 

175 

227# 

236 

268 

OATE 

166# 





DCLR 

230# 

391 

393 

404 

414 

DERAIL 

129# 




OF32 

73# 





dlag 

231# 

341 




DLCA 

232# 

263 




OLOC 

234# 

339 

396 



DNEWT 

149# 





OONEFG 

240# 

249 

293 

406 


ORST 

233# 

325 

400 

410 


03KP 

229# 

360 




DTA 

69# 





EAE 

50# 





FFWT 

141# 





ENABWT 

146# 





EORMWT 

144# 





ao 

246 

301 

315# 



FREE 

133# 





fstint 

267 

325# 




GET 

253 

256 

262 

266 

297 

halt 

406# 





HERTZ 

97# 





HGHFLO 

52# 





ICS 

76# 





IDlSP 

290 

364# 

394 

399 

407 

IGNORE 

364 

416# 




INIT 

249# 

296 




INIWT 

179 

226# 




INTRFT 

241 

378# 

381 



LOOP 

243# 

309 




LPT 

66# 





LTA 

66# 





MCR 

67# 

90 




MCREF 

167# 





MCR3VS 

91# 





MSGTBl 

152# 

153 

172 



MSGWT 

147# 





HETWT 

146 # 






316 317 


382 

416 


314# 316 


260 





NEWCR 322# 332 358 

NRECAL 390 404# 

NT ASK S 53# 78 153 155 156 159 

OSFILI 88# 

05FLD3 64# 

OSKBOV 65# 

033Y30 87# 

OSTTOV 66# 

088 76# 83 

0S6F 79# 

PAGCNT 257 260 261 265 270 176 260 261 220# 329 

342 344 352 

PARTBL 159# 

PARTN3 55# 

PD0NP6 293# 

P0P12 49# 

PDP8E 48# 

PFIO 302 306# 

POST 127# 306 

P03T08 117# 335 366 419 

PWRF 64# 

PWPFAL 51# 

P7600 296# 


REC 

269 

313# 

340 

345 

RECE1V 

123# 

244 


RE3TBL 

158# 

159 



RF06 

72# 




RKERR 

328 

403 

410# 


RKNEXT 

329# 




PKOVER 

331 

413# 



RK3ETP 

286 

333 

337# 

359 

RK7600 

282 

343 

351# 

353 

RK8 

71# 

87 

102 

225 

RTRYFG 

295 

311# 

405 



RUN 125# 
RUNWT 142# 
RX8A 77# 
SEND 122# 
SENDM 131# 


3ETEF 

405# 

416 



3HERTZ 

96# 




3KPIN3 

128# 

240 



START 

176 

239# 



status 

299 

307# 

413 


SUNIT 

103# 




9USPND 

126# 




SWAPPE 

70# 

101 

157 

159 

SWPWT 

143# 




SYS 

102# 




TASK 

172 

174 

178 

225# 

TFT ABL 

155# 

158 

176 


TMP 

238# 




TODH 

165# 




TOOL 

164# 




TRY AGN 

366# 

412 



TRYCT 

2A1# 

246 

411 


TSTABl 

153# 

155 

174 



TSWFIG 163# 
TTV 65# 
HOC 135 
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UNBARG 

USERWT 

WAITE 

WAIT* 

x 04361 

j.04362 

x 0«383 

x 04364 

x 04365 

x 04366 

X P«367 

x 04370 

x 04371 

x 04372 

x 04373 

x 04374 

x 04375 

x 04376 

x 04377 

x 04570 

x 04571 

x 04572 

x 0«573 

x 04574 

x 04575 

x 04576 

x 04577 


132# 

145# 

12## 292 

118# 

355 

349 

331 

328 

304 

290 

287 

284 

277 

274 

271 

267 

259 

255 294 

254 

413 

411 

40b 

405 

397 

396 

395 

388 


V 3 
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/PARAMETERS FOR RTS-8 TASKS 


(VERSION PAL8-V9D 09/11/75 PAGE 1 


1 

2 

3 

4 

5 

6 
7 
* 
9 

10 

11 

12 

13 

la 

15 

16 
17 
IS 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
29 
3e 

31 

32 

33 

34 

35 

36 

37 

38 

39 
an 
«l 
92 

43 

44 


/PARAMETERS FOR RTS-8 TASKS (VERSION 2) 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT (C) 1974,1975 BY OIGITAl EQJIPMENT CORPORATION 

/ 

/ 

/ 

/ 


/ 

/ 

/ 

/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
/CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 

/ 

/THE SOFTWARE OESCRIBEO IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM ANO CAN BE COPIED 
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 

/ 

/DIGITAL EQUIPMENT CORPORATION ASSUMES t>0 RESPONSIBILITY FOR THE USE 
/OR RELIABILITY OF ITS SOFTWARE ON EQUIFMENT THAT IS NOT SUPPLIED BY 
/OIGITAL, 

/ 

/ 

/ 


/ 

/ 

/ 

/ 

/ 

/ 
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/PARAMETERS FOR RTS-8 TASKS 


(VERSION 


PAL8-V90 09/H/7 i PAGE 2 


45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 


/RTS8 V2 EXEC PARAMETERS - EDITED BY US:R 

0001 PDP8E-1 
0000 POP 12»0 
0001 EAE-1 

0001 pwrfal-i 

0030 HGHFLD-30 
0023 NTASKS-23 
0001 CHECKPTM 
0000 PARTNS*0 

/(THE N PARTITIONS ARE NUMBERED FROM 0 TO N«l) 
/COMMON TASK NUMBERS - EDITED BY USER 

/IT IS AOVISABLE TO OEFINE ALL TASKS HERE. NAMES GIVEN BELOW 
/ARE USEO BY SOME SYSTEM TASKS AND SHOULD BE DELETEO FROM THIS 
/LIST IF THE CORRESPONDING TASK IS NOT INCLUDED IN THE SYSTEM 

0001 CLOCK-1 
0002 PWRF-2 
0003 TTY-3 
0004 LPT-4 
0005 MCR-5 
0006 LTA-6 
0007 DTA-7 
0021 SWAPPER-21 
0010 RKB-10 
0011 RF08-11 

0012 DF32-12 

0013 CSA-13 
0014 CSAF-14 
0016 ICS-16 
0017 RXSA-17 
0023 0S8-NT ASKS 
0020 OS8F-20 

/SOFTWARE PARAMETERS - EDITED BY USER 
IFOEF 088 « 


0002 

0SFL0S-2 


0030 

OSKBDV-30 


0031 

OSTTDV-31 


0010 

OSSY8D-RK8 


0004 

OSFILL-4 



IFOEF 

MCR 

0001 

MCRSYS-1 



IFOEF 

CLOCK 

0000 

CLKTYP-0 


0020 

CLKQLN-20 

OECIMAL 


0170 

HERTZ-120 


0074 

8HERTZ-60 

OCTAL 
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/PARAMETERS FOR RTS-B TASKS 


(VERSION PALS-V9D 09/11/79 PACE 0.1 


100 P 

101 XFDEF SNAPPER « 

102 0010 SYSfRKS 

103 0000 8UNXT«0 

104 P 
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/PARAMETERS FOR RTS*8 TASKS (VERSION PAL8-V90 09/11/7! PAGE 3 


105 


/EQUIVALENCES! 


106 





107 

7344 

AC7776* 

CLL STA 

RAL 

100 

7346 

AC7773* 

CLL STA 

RTL 

109 

7330 

AC4000* 

CLA STL 

RAR 

110 

7350 

AC3777P 

CLL STA 

RAR 

111 

7332 

AC2000* 

CLA STL 

RTR 

112 

113 

114 

7326 

AC0002* 

CLA STL 

RTL 


/MONITOR CALL VALUES! 

115 





116 

4020 

CAli 

JMS 

20 /CALL THE EXECUTIVE 

117 

5424 

P03TD3* 

JMP I 

24 /OISMXSS AN INTERRUPT 

118 

4425 

WAITM* 

JMS I 

25 /WAIT FOR MULTIPLE EVENTS 

119 





120 




/NOTE! «•**» MEANS CRITICAL VALUE MAY NOT 

121 




/BE CHANGED WITHOUT MODIFYING SYSTEM CODEU 

122 

0000 

3EN0* 

0 

/SEND MESSAGE 

123 

0001 

RECEIV* 

1 

/RECEIVE MESSAGE 

124 

0002 

WAITE* 

2 

/WAIT FOR EVENT FLAG 

125 

0003 

RUNS 

3 

/CONTINUE TASK EXECUTION 

126 

0004 

SUSPNO* 

4 

/SUSPEND TASK EXECUTION 

127 

0005 

POST* 

5 

/POST AN EVENT FLAG 

128 

0006 

SKPINS* 

6 

/INSERT CODE INTO INTERRUPT SKIP CHAIN 

129 

0007 

DERAIL* 

7 

/INITIATE END-ACTION 

130 

0010 

blkarg* 

10 

/BLOCK TASK FOR REASON SPECIFIED IN ARG 

131 

0011 

SENDW* 

11 

/SEND MESSAGE AND WAIT 

132 

0012 

UNBARG* 

12 

/UNBLOCK TASK FOR REASON SPECIFIED IN ARG 

133 

4000 

FREE* 

4000 

/••FREE PARTITION 

134 





135 



IFDEF UOC <AO«0/DO*1JOI*2|GC*3JEC*4|RCp5 

136 




DC*6!ECT*7|C3*10!DCT«11!AXP12» 

137 





138 


/TASK STATUS FLAGS! 

139 





140 

4000 

NONRWT* 

4000 

/•♦NONRESIDENT TASK WAIT 

141 

2000 

EFWT* 

2000 

/EVENT FLAG WAIT 

142 

1000 

RUNWT* 

1000 

/SCHEDULE WAIT 

143 

0400 

SWPNT* 

0400 

/••SWAPPER WAIT 

144 

0200 

EORMWT* 

0200 

/EVENT FLAG OR MESSAGE WAIT 

145 

0100 

USERWT* 

0100 

/USER SPECIFIED WAIT 

146 

0040 

ENABWT* 

0040 

/ENABLE WAIT 

147 

0020 

MSGWT* 

0020 

/MESSAGE WAIT 

148 

0010 

NETwT* 

0010 

/NETWORK WAIT (RESERVED FOR POSSIBLE FUTURE USE) 

149 

0001 

DNEWT* 

0001 

/••DOES NOT EXIST WAIT 


266 





/PARAMETERS FOR RTS-8 TASKS 


(VERSION PAL8-V9D 19/11/7! PACE « 


0 

1 


/SYSTEM LOCATIONS! 

1176 M86TBLP 12SS-2 

1244 T8TABL- NTA8K8*2*26MSGTBL»4 

1367 TFTABL- NTA8KSt2*4*T8TABL-1 


XFOEF SWAPPER « 

1414 RESTBL* TPTABL«NTA8KS4l 

1420 PARTBL- NTASKS-SHAPPER*2*RESTSL*3S7774 

0043 COMMAND-43 


/TASK MESSAGE TABLE 
/TASK SI ATE TABLE • HOLDS 
/TASK L1NK,UM,0F,IF,PC,AC,MQ 
/TASK PL ABB TABLE • HOLDS 
/TASK SUTUS FLAGS 


/RESXOENCY TABLE 
/PARTITION TABLE 
/SWAPPER COHMAND BUFFER 


0033 

T8WFLG- 

33 

/TASK 

SW INHIBIT FLAG 

IN FIELD 

0 

0036 

TOOL- 

36 

/LOW 

ORDER TIME OF DAY 

IN FIELD 

B 

0037 

TOON- 

37 

/HIGH 

ORDER TIME OF OAY 

IN FIELO 

0 

0040 

OATE- 

40 

/DATE 

IN OSS FORMAT 

IN FIELO 

B 

0041 

MCREF- 

41 

/MCR 

START EVENT FLAB 

IN FIELD 

0 
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/PARAMETERS FOR RTS-8 TASKS (VERSION PAL8-V90 09/11/73 PAGE 3 


169 



/TASK 

TABLE SETUP • "TASK", "CUR","INIWT*, AND "START" 

170 

171 

172 



/MUST 

BE DEFINED BY TASK 1 


1224 


*TASK*2*MSGTBL 


173 

01224 

0000 


ZBLOCK 2 

/MESSAGE BUFFER INITIALLY CLEAR 

174 


1320 


*TASK m 4*TSTABL 


175 

01320 

0011 


CURX10+CUR 

/INITIAL FLAGS 

176 

01321 

4200 


START 


177 

01322 

0000 


0 

/INITIAL AC B 

178 


1402 


-TASK+TPTABL 


179 

01402 

0000 


INIWT 
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/CASSETTE HANDLER FOR RTSS V2 


FALS-VtO 09/11/FS FACE S 


180 
1«1 
162 
163 
186 
185 
166 
167 
166 
188 
190 
1*1 
1*2 
1*3 
194 
1*5 
1*6 
1*T 
1*8 
1*9 
200 
201 
202 

203 

204 

205 

206 
207 
206 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 
21 * 
220 
221 
222 
223 


6/31/74 


/CASSETTE HANDLER FOR RTSS Vt 
/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COFYRXGHT CC) 1*74,1*75 ST DIGITAL i:OUXRH«NT CORPORATION 
/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/THE INFORMATION IN THX8 DOCUMENT IS SISJECT TO CHANGE WITHOUT NOTICE 
/ANO SHOULO NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
/CORPORATION, DIGITAL EQUIPMENT CORPOPATXON ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THU DOCUMENT, 

/THE SOFTWARE DESCRIBED IN THIS DOCUMEPT IS FURNISHED TO THE PURCHASER 
/UNOER A LICENSE FOR USE ON A SINGLE CCMPUTER SYSTEM AND CAN BE COPIED 
/(WITH INCLUSION OF DIGITAL'S COPYRIGH1 NOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 

/ 

/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
/DIGITAL, 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


/CASSETTE HANDLER FOR RTSS V2 


PAL8-V90 09/11 /T'l PAGE T 


224 

6700 


KCLR-6700 

225 




226 

6701 


KSDRW6701 

227 

6702 


KSEN-6702 

226 

6703 


KSBFf6703 

229 

6704 


KLSA96704 

230 




231 




232 




233 

6705 


KSAF4670S 

234 

6706 


KGOA-6706 

235 




236 

6707 


KRSB-6707 

237 

0001 


XNTfl 

236 




239 

0000 


INIWT-0 

240 

0013 


T A8K-C6A 

241 

0010 


CUR-10 

242 

0001 


FIELD CURX10 

243 




244 


/FORMAT 

OF MESSAGE ISI 

245 


/ 


246 


/MSG, 

ZBLOCK 3 

247 


/ 

WORD 1 ■ UNIT 

246 


/ 

BITS 9« 

249 


/ 

BIT 0 

250 


/ 


251 


/ 

WORD i - FUNCT1 

252 


/ 

FOR HAK 

253 


/ 



254 

255 

256 

257 
256 

259 

260 
261 
262 

263 

264 

265 

266 
267 
266 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 


/CLEAR ALL 

/CLEAR STATUS A AND B REGISTERS 

/SKIP ON OATA F| AG 

/SKIP ON ERROR 

/SKIP ON READY I LAG 

/LOAD STATUS A IRON AC 4«ll 

/CLEAR AC, THEN 

/LOAD 6 BIT COMILEMENT OF STATUS A 
/BACK INTO AC 

/SKIP ON ANY FL/G OR ERROR 
/ASSERT THE CONI ENTS OF STATUS A, 
/TRANSFER OATA IF READ OR WRITE 
/READ STATUS B INTO AC 4«11 


* UNIT 

■ 0 ■ UTILITIES CALL 

' 1 ■ handler call 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/STATUS 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


BIT 0 • 1 • 
BITS 6iB • 
BIT 11 1 1 
FOR UTILITY UTIL WORD 
10 ■ REWIND 


WRITE, * 0 • READ 
FIELD OF BUFFER 

• DO NOT STORE DATA (ON READ ONLY) 


3B ■ 

40 9 
50 ■ 
70 ■ 

FOR UTILITY 
FOR HANDLER 


BACKSPACE FILE GAP 
WRITE FILE GAP 
BACKSPACE BLOCK GAP 
SKIP TO FILE GAP 

• STATUS RETURN 
■ BUFFER ADDRESS 


FOR HANDLER ■ RECORO SIZE 
FOR UTIL UNUSEO 


FOR HANOLER • STATUS RETURN 
FOR UTIL UNUSED 


B BITS! 

4aCRC/BLK ERROR 
3-TIMING 
A-EOT/BOT 
7»E0F 

6-DRIVE EMPTY 

9- RW 

10- WRITE LOCK OUT 
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/CASSETTE HANDLER FOR RTSS V8 PAL8«V9D 09/H/7S FACE T.t 

279 / 11MEADY 
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/CASSETTE HANDLER FOR RTSS V2 PAL8-V9D 09/11/75 FACE • 


280 


3600 


*3600 



281 

13800 

0000 

FXXDVC, 

0 




2S2 

13601 

7010 


RAR 



/MOVE UNIT TO LIUKf DEVICE 

283 

13602 

0377 


AND 


(3 

/MASK OFF DEVICE CODE 

2Sfl 

13603 

3230 


OCA 


ovc 

/SAVE DEVICE CODI 

283 

13604 

7430 


8ZL 




21b 

13605 

1376 


TAO 


(100 


287 

13606 

3272 


DCA 


ABUNXT 

/SET UNIT IN BIT 5 

288 

13607 

1230 


TAD 


DVC 


289 

13610 

7106 


CLL 

RTL 



298 

13611 

7004 


RAL 




291 

13612 

3230 


DCA 


DVC 

/MOVE TO BITS 6.1 

292 

13613 

1375 


TAD 


(XOTBL 


293 

13614 

3231 


OCA 


IOTPTR 


294 

13615 

1631 

IOTLOOP, 

i TAD 

X 

IOTFTR 


295 

13616 

7450 


SNA 



/END OF TABLET 

298 

13617 

5232 


JMP 


CHECKR 

/YES 

297 

13620 

3227 


DCA 


TMF 


298 

13621 

1627 


TAD 

X 

TMF 


299 

13622 

0374 


AND 


(7707 

/MASK OUT OLD DVC 

300 

13623 

1230 


TAO 


DVC 

/INSERT NEW ONE 

301 

13624 

3627 


OCA 

I 

TMP 

/REPLACE 

302 

13625 

2231 


ISZ 


IOTPTR 

/POINT TO NEXT OAE 

303 

13626 

5215 


JMP 


IOTLOOP 


304 








305 

13627 

0000 

THF, 

0 




308 

13630 

0000 

DVC , 

0 



/DEVICE CODE 

307 

13631 

0000 

IOTPTR t 

0 





AC 
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/CASSETTE HANDIER FOR RTSS V2 


PAL8-V9D 09/11/75 PAGE 9 


306 

13632 

4773 

CHECKR, 

JM 8 

I 

(CLEAR 




309 

13633 

1372 


TAD 


(200 




310 

13634 

4265 


JMS 


LOADA 

/select drive 



311 

13635 

4771 


JHI 

X 

(CHECKS 




312 

13636 

0370 


AND 


(7735 

/IGNORE EOT/BOT 

FLAG ♦ 

WLO 

313 

13637 

1367 


TAD 


(-1 




31A 

13640 

7640 


SZA 


CLA 




315 

13641 

5766 


JMP 

I 

( 8 ELERR 

/NOT REAOY 



316 

13642 

5600 


JMP 

X 

PXXDVC 




317 










318 










319 

13643 

4765 

READX, 

JMS 

I 

(CHK 




320 

13644 

0262 


AND 


L374 




321 

13645 

7440 


SZA 






322 

13646 

5305 


JMP 


ERRX 




323 

13647 

6706 

XOT 6 C 1 

KGOA 


/GET CHAR JUST 

REAO 


324 

13650 

3342 


OCA 


BYTE 




325 

13651 

2340 


X 8 Z 


BKNT 




326 

13652 

7410 


8 KP 






327 

13653 

5273 


JMP 


RWCRC 




328 

13654 

1342 


TAO 


BYTE 




329 

13655 

7402 

BFLD, 

HIT 






330 

13656 

3741 

0MPFL6, 

DCA 

X 

BPTR 

/ZEROED IF BIT 

11*1 ON 

READ 

331 

13657 

7200 


CIA 






332 

13660 

2341 


ISZ 


BPTR 




333 

13661 

6211 


CDF 


CUR 




334 

13662 

0374 

L374, 

374 






333 

13663 

4764 


JMS 

I 

(IDISP 




336 

13664 

5243 


JMP 


READX 




337 
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338 

13665 

0000 

LOADA, 

0 



339 

13666 

1272 


TAD 

ABUNXT 


340 

13667 

6704 

I0T4, 

KLSA 



341 

13670 

7200 


CLA 



342 

13671 

5665 


JMP I 

LOADA 


343 







344 

13672 

0000 

ABUNXT, 

0 



345 







346 

13673 

1363 

RWCRC, 

TAD 

(260+XNT 

/ENABLE, EKABLE INTER 

347 

13674 

4265 


JMS 

LOADA 


348 

13675 

4762 


JMS I 

(GO 


349 

13676 

4764 


JMS I 

(IDISP 


350 

13677 

4765 


JMS I 

(CHK 


351 

13700 

4762 

CRCMN, 

JMS I 

(GO 


352 

13701 

4764 


JMS I 

(IDISP 


353 

13702 

4771 


JMS I 

(CHECKS 


354 

13703 

0361 


AND 

(7775 

/IGNORE WLO 

355 

13704 

1367 


TAD 

(-1 


356 

13705 

7650 

ERRX, 

SNA 

CLA 

/ERRORST 

357 

13706 

5312 


JMP 

ERRR*1 

/NO • CLEAN BILL OF HEALTH 

358 

13707 

2760 

E3, 

ISZ X 

(ERKNT 

/TRY 3 TIMES 

359 

13710 

5757 


JMP I 

CERRCOV 

/RETRY 

360 

13711 

7240 

ERRR, 

ST A 


/ERROR WHILE REAOIN9 CRC 

361 

13712 

4773 


JMS X 

(CLEAR 


362 

13713 

5756 


JMP I 

(FINAL 






/CASSETTE HANDLES FOR ATS* V2 


PAL8-V9D 09/11/73 PACE 11 


3S3 

13714 

5243 

WRITEX, 

JMP 


READX 

3*4 

13715 

47*5 

WRlTELi 

JMS 

I 

(CHK 

3*3 

1371* 

7112 


CLL 

RTR 


3** 

13717 

7430 


SZL 



3*7 

13720 

5311 


JMP 


ERRR 

3*S 

13721 

7*40 


8ZA 

CLA 


3*9 

13722 

5307 


JMP 


E3 

37B 

13723 

2340 


I8Z 


BKNT 

371 

13724 

7410 


SKP 



372 

13725 

5335 


JMP 


WCRC 

373 

1372* 

7402 

BPXELD, 

HLT 



374 

13727 

2341 


ISZ 


BPTR 

373 

13730 

0070 


70 



37* 

13731 

1741 


TAD 

I 

BPTR 

377 

13732 

47*2 


JMS 

I 

(80 

370 

13733 

47*4 


JMS 

I 

CXDXSP 

379 

13734 

5315 


JMP 


WRITEL 

390 







381 







382 

13735 

13*3 

WCRC, 

TAD 


(2S0+XNT 

383 

1373* 

4265 


JMS 


LOADA 

384 

13737 

5300 


JMP 


CRCMN 

3S5 

13740 

0000 

BKNT , 

0 



38* 

13741 

0000 

BPTR, 

0 



3S7 

13742 

0000 

BYTE, 

0 



3SS 

1375* 

4103 





389 

13757 

4117 





390 

137*0 

4323 





391 

137*1 

7775 





392 

137*2 

40*2 





393 

137*3 

02*1 





394 

137*4 

410* 





395 

137*5 

406* 





39* 

137** 

432* 





397 

137*7 

7777 





398 

13770 

7735 





399 

13771 

4051 





400 

13772 

0200 





401 

13773 

405* 





402 

13774 

7707 





403 

13775 

4000 





404 

1377* 

0100 





405 

13777 

0003 





40* 


4000 


PACE 




/WLO ON WRITE OP NOT WORTH RETRYXN6 


/NUMBER OP CHARS EXPECTED 

/NEXT LOCATION IK SUPPER TO STORE INTO 

/TEMPORARILY HOLDS BYTE POUND 


/CASSETTE HANDLER FOR RTSS V2 


PAL6.V9D 09/11/73 PA6E 12 


407 

14000 

40*0 

IOTBL, 

IOT0 



408 

14001 

4071 


I0T1 



409 

14002 

3**7 


I0T4 



410 

14003 

4113 


I0T5 



411 

14004 

40*3 


IOT* 



412 

14005 

3*47 


I0T6C 



413 

1400* 

4052 


I0T7 



414 

14007 

4117 


ERRCOV 



415 

14010 

0000 


0 



41* 







417 

14011 

7010 

UTIL, 

RAR 



418 

14012 

3777 


OCA I 

(UNIT 


419 

14013 

3250 


DCA 

REW8W 


420 

14014 

477* 


JMS I 

(GET 

/FUNCTION WORD 

421 

14015 

1375 


TAO 

(•10 

422 

1401* 

7450 


SNA 


423 

14017 

2250 


ISZ 

REWSW 


424 

14020 

1374 


TAO 

(2109XNT 

423 

14021 

3247 


DCA 

TEMPFN 


426 

14022 

J 777 


TAD I 

(UNIT 


427 

14023 

6002 


IOP 



428 

14024 

4773 


JMS I 

CFIXDVC 

/FIX DEVICE CODE 

429 

1 4025 

1372 


TAD 

(UT 

430 

14026 

330* 


DCA 

IDX3P 

/SET RETURN ADORES8 

431 

14027 

1247 


TAO 

TEMPFN 

432 

14030 

4771 


JMS 1 

(LOAOA 


433 

14031 

42*2 


JMS 

GO 

/INITIATE UTIL 

434 

14032 

5770 


JMP I 

(COMON 

435 

14033 

4251 

UT, 

JMS 

CHECKS 

/LOOK AT STATUS B 

43* 

14034 

03*7 


AND 

(50 

/CHECK FOR CL, EMPTY, 

437 






/GIVE NO ERROR ON WLO 

438 






/BAD FOR WRGAP 

439 

14035 

7450 


SNA 


440 

1403* 

5245 


JMP 

OK 

/NO ERRORS 

441 

14037 

136* 


TAO 

(•40 


442 

14040 

7*40 


SZA 

CLA 


443 

14041 

5244 


JMP 

NOTOK 

/ERROR NOT CL 

444 

14042 

1250 


TAD 

REWSW 

445 

14043 

7650 


SNA 

CLA 

/CL OK IP DID REWIND 

446 

14044 

7240 

NOTOK, 

STA 


447 

14045 

425* 

OK, 

JMS 

CLEAR 


448 

14046 

5303 


JMP 

PINAL 


449 






450 

14047 

0000 

TEMPFN, 

0 



451 

14050 

0000 

REWSW, 

0 


/I MEANS OPERATION IS 


I 


?u> 
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452 

14051 

0000 

CHECKS, 

0 



453 

14052 

6707 

IOT7, 

KRSB 


/READ STATUS B X'TO AC 4-11 

454 

14053 

3301 


OCA 

BSTATE 

/SAVE STATUS B 

455 

14054 

1301 


TAD 

BSTATE 


456 

14055 

5651 


JMP I 

CHECKS 


457 







458 

14056 

0000 

clear, 

0 



459 

14057 

3302 


OCA 

ERRXND 

/•I MEANS ERROR 

460 

14060 

6700 

IOT0, 

KCLR 


/CLEAR STATUS A / ND B 

461 

462 

14061 

5656 


JMP X 

clear 


463 

14062 

0000 

60, 

0 



464 

14063 

6706 

I0T6, 

K60A 


/ASSERT CONTENTS OF STATUS A 

465 

14064 

7200 


CLA 



466 

14065 

5662 


JMP I 

60 


467 







468 

14066 

0000 

CHK, 

0 



469 

14067 

4251 


JH8 

CHECKS 


470 

14070 

0365 


AND 

(376 


•71 

14071 

6701 

IOTl, 

KSDR 



472 

14072 

7410 


SKP 


/DATA FLAG NOT UP • 

473 

14073 

5666 


JMP I 

CHK 


474 

14074 

1364 


TAD 

(•20 


475 

14075 

7650 


SNA 

CLA 

/IS XT END OF FILE? 

476 

14076 

5763 


JMP X 

(ERRR 

/YES, ERROR • BUT DON'T RETRY 

477 

14077 

1301 


TAD 

BSTATE 


478 

14100 

5666 


JMP X 

CHK 


479 







480 

14101 

0000 

BSTATE, 

0 


/STATUS OF REGISTER B 

481 

14102 

0000 

ERRXND, 

0 
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482 

14103 

1362 

final, 

TAD 

(DONEFG 


483 

14104 

4306 


JMS 

IDISP 

/FINAL POS SETS E 'ENT FLAG 

484 

14105 

7402 


HLT 


/DEBUG ONLY, SHOU .0 NEVER GET HERE 

485 







486 

14106 

7402 

idisp, 

HLT 



487 

14107 

6202 


CIF 

0 


488 

14110 

5424 


POSTDS 



489 







490 

14111 

0000 

CASINT, 

ZBLOCK 

2 


491 

14113 

6705 

I0T5, 

KSAF 



492 

14114 

5711 


JMP I 

CASINT 


493 

14115 

6213 


CDF CIF 

CUR 


494 

14116 

5706 


JMP I 

IDISP 


495 







496 

14117 

6700 

ERWCOV, 

KCLR 



497 

14120 

1361 


TAO 

C250MNT 


498 

14121 

4771 


JMS I 

(LOADA 


499 

14122 

4262 


JMS 

GO 

/BACKSPACE BLOCK 

500 

14123 

4760 


JMS I 

(IOISP 

/WAIT 

501 

14124 

4251 


JMS 

CHECKS 


502 

14125 

0357 


AND 

(374 

/KILL WRITE«LOCK l-IT 

503 

14126 

7640 


SZA 

CLA 


504 

14127 

5763 


JMP I 

(ERRR 


505 

14130 

4756 


JMS I 

(SETUP 

/RE-SET UP OPERATION 

506 

14131 

5307 


JMP 

IDISPM 

/FAKE A JMS 

507 

14156 

4330 





508 

14157 

0374 





509 

14160 

4106 





510 

14161 

0251 





511 

14162 

4201 





512 

14163 

3711 





513 

14164 

7760 





514 

14165 

0376 





515 

14166 

7740 





516 

14167 

0050 





517 

14170 

4260 





518 

14171 

3665 





519 

14172 

4033 





520 

14173 

3600 





521 

14174 

0211 





522 

14175 

7770 





523 

14176 

4302 





524 

14177 

4317 





525 


4?00 


PAGE 
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/CASSETTE HANDLER FOR RTSS V2 PAL8.V9D 09/11/75 PACE IS 


526 



/ 

*ORG3 



527 







528 

14200 

4020 

START, 

CAL 



529 

14201 

0006 

DONEFC, 

SKPXN8 



530 

14202 

4111 


CASINT 



531 

14203 

4020 

LOOP, 

CAL 



532 

14204 

0001 


RECEIV 



533 

14205 

0000 

ADDR, 

0 



534 

14206 

3310 


DCA 

FLO 


535 

14207 

3322 


OCA 

RW 


536 

14210 

1316 


TAD 

0CA8ET 


537 

14211 

3777 


DCA I 

CDMPFLG 


538 

14212 

7346 


AC7775 



539 

14213 

1205 


TAD 

ADOR 


540 

14214 

3320 


DCA 

MEVFLG 


541 

14215 

2201 


ISZ 

OONEFG 


542 

14216 

4302 


JHS 

GET 


543 

14217 

2205 


ISZ 

ADOR 


544 

14220 

7104 


CLL 

RAL 


545 

14221 

7420 


SNL 



546 

14222 

5776 


JHP I 

(UTIL 


547 

14223 

7010 


RAR 



548 

14224 

3317 


DCA 

UNIT 


549 

14225 

4302 


JHS 

GET 


550 

14226 

0324 


AND 

P70 

/ISOLATE FIELD OF BUFFER 

551 

14227 

1375 


TAD 

(CDF 


552 

14230 

3347 


DCA 

WCOF 


553 

14231 

4302 


JHS 

GET 

/RETRIEVE FUNCTION CONTROL WORD 

554 

14232 

7004 


RAl 


/READ/WRITE BIT TO LINK 

555 

14233 

7420 


SNL 



556 

14234 

5312 


JHP 

READU 

/A READ OP 

557 

14235 

7204 


CLA 

RAL 


558 

14236 

3322 

RANDW, 

OCA 

RW 

/RW«t IF WRITE 

559 

14237 

2205 


ISZ 

ADDR 


560 

14240 

4302 


JHS 

GET 


561 

14241 

3321 


DCA 

BUFFER 

/SAVE IT 

562 

14242 

2205 


ISZ 

ADOR 


563 

14243 

4302 


JMS 

GET 


564 

14244 

6211 


CDF 

CUR 


565 

14245 

3325 


DCA 

BSIZE 

/RECORD SIZE 

566 

14246 

1317 


TAD 

UNIT 


567 

14247 

6002 


IOF 



568 

14250 

4774 


JHS I 

(FIXDVC 


569 

14251 

1347 


TAD 

WCDF 


570 

14252 

3773 


DCA I 

(•FIELD 


571 

14253 

1347 


TAD 

WCDF 


572 

14254 

3772 


DCA I 

(BFLD 


573 

14255 

7346 


STA CLL 

rtl 

/TAD (.3 

574 

14256 

3323 


DCA 

ERKNT 


575 

14257 

4330 


JMS 

SETUP 

/SET UP REAO OR WR:TE 

576 

14260 

6001 

COHDN, 

ION 



577 

14261 

7000 


NOP 



578 

14262 

4020 


CAL 



579 

14263 

0002 


WAITE 



580 

14264 

4201 


OONEFG 
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581 

14265 

2205 

RTNSTS, 

ISZ 


ADOR 


582 

14266 

1771 


tad 

I 

(ERRIND 


583 

14267 

0770 


AND 

I 

(BSTATE 


584 

14270 

4307 


JMS 


CDFMSG 


585 

14271 

3605 


DCA 

I 

ADDR 


586 

14272 

6211 


COF 


CUR 


587 

14273 

1310 


TAO 


FLD 


588 

14274 

3300 


DCA 


PFLO 


589 

14275 

1320 


TAD 


MEVFLG 


590 

14276 

4020 


CAL 




591 

14277 

0005 


POST 



592 

14300 

0000 

PFLD, 

0 




593 

14301 

5203 


JHP 


LOOP 


594 








595 

14302 

0000 

GET, 

0 




596 

14303 

4307 


JHS 


CDFMSG 


597 

14304 

1605 


TAD 

I 

ADOR 


598 

14305 

6211 


CDF 


CUR 


599 

14306 

5702 


JMP 

I 

GET 


600 








601 

14307 

0000 

CDFMSG, 

0 




602 

14310 

0000 

FLO, 

0 




603 

14311 

5707 


JMP 

I 

CDFMSG 


604 








605 

14312 

7012 

READU, 

RTR 



/BIT 11 TO LINK 

606 

14313 

7630 


SZL 


CLA 


607 

14314 

3777 


DCA 

I 

(DMPFLG 

/DON'T STORE OATA 

608 

14315 

5236 


JMP 


RANDW 


609 

14316 

3741 

DCASET, 

BPTR8177*36Bf 

/OCA I BPTR 

610 








611 

14317 

0000 

UNIT, 

0 




612 

14320 

0000 

MEVFLG, 

0 




613 

14321 

0000 

BUFFER, 

0 




614 

14322 

0000 

RW, 

0 



/I IF WRITE 

615 

14323 

7775 

ERKNT, 

*3 




616 

14324 

0070 

P70, 

7t 




617 

14325 

0200 

BSIZE, 

200 




618 








619 

14326 

7240 

SELERR, 

STA 




620 

14327 

5265 


JMP 


RTNSTS 

/RETURN ERROR 
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621 

14330 

0000 

SETUP, 

0 


622 

14331 

1322 


TAO 

RW 

623 

14332 

1367 


TAO 

CWRZTEX 

624 

14333 

3766 


OCA I 

(IDZSP 

623 

14334 

1321 


TAD 

BUFFER 

626 

14333 

3763 


OCA Z 

(BPTR 

627 

14336 

1325 


TAD 

BSIZE 

628 

14337 

7040 


CMA 


629 

14340 

1322 


TAD 

RW 

630 

14341 

3764 


DCA Z 

(BKNT 

631 

14342 

1322 


TAD 

RW 

632 

14343 

7106 


CLL 

RTL 

633 

14344 

7006 


RTL 


634 

14343 

1363 


TAD 

(2006ZNT 

633 

14346 

4762 


JMS I 

(LOAOA 

636 

14347 

7402 

WCDF, 

HLT 


637 

14350 

1322 


TAD 

RW 

638 

14351 

7640 


SZA 

CLA 

639 

14332 

1721 


TAD I 

BUFFER 

640 

14333 

6211 


CDF 

CUR 

641 

14334 

4761 


JN8 I 

(CO 

642 

14335 

5730 


JMP Z 

SETUP 

643 






644 

14361 

4062 




643 

14362 

3663 




646 

14363 

0201 




647 

14364 

3740 




648 

14365 

3741 




649 

14366 

4106 




650 

14367 

3714 




651 

14370 

4101 




652 

14371 

4102 




653 

14372 

3655 




634 

14373 

3726 




655 

14374 

3600 




636 

14373 

6201 




657 

14376 

4011 




658 

14377 

3656 




659 




S 



/SET RETURN ADOR !S8 


/WANT TO READ ON'! MORE 


/WRITE FN COOEpB 

/SELECT *ND INTERRUPT ENABLE 


/■BPTR (FOR 2 LEVELS OF INDIRECT) 
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/CASSETTE HANDLER FOR RT38 V2 PAL8-V90 09/11/73 PACE IT 


ABUN1T 

3672 

Flo 

4310 

pflo 

4300 

AC0002 

7326 

FREE 

4000 

POST 

0005 

AC2000 

7332 

GET 

4302 

POSTDS 

5424 

AC3777 

7350 

CO 

4062 

PWRF 

0002 

AC4000 

7330 

HERTZ 

0170 

PWRFAL 

0001 

AC7775 

7346 

hghflo 

0030 

P70 

4324 

AC7776 

7344 

ICS 

0016 

rand* 

4236 

ADOR 

4205 

IOISP 

4106 

REA0X 

3643 

BFIEID 

3726 

INIWT 

0000 

READ11 

4312 

BFLn 

3655 

INT 

0001 

RECEIV 

0001 

BKNT 

3740 

IOTBL 

4000 

RESTBL 

1414 

blkarg 

0010 

IOTLOO 

3615 

REWSM 

4050 

BPTR 

3741 

iotptr 

3631 

RF08 

0011 

BSIZE 

4325 

IDT0 

4060 

RK8 

0010 

BSTATE 

4101 

IOT 1 

4071 

RTNSTS 

4265 

BUFFER 

4321 

1074 

3667 

RUN 

0003 

BYTE 

3742 

10 T 5 

4113 

RUNWT 

1000 

CAL 

4020 

10 7 6 

4063 

RW 

4322 

CASINT 

4111 

I0T6C 

3647 

RWCRC 

3673 

CDFMSG 

4307 

I0T7 

4052 

RX8 A 

0017 

CHECKS 

4051 

KCLR 

6700 

8ELERR 

4326 

CHECKP 

0001 

K GO A 

6706 

SEND 

0000 

CHECKR 

3632 

KLSA 

6704 

SENDW 

0011 

CHK 

4066 

krsb 

6707 

SETUP 

4330 

clear 

4056 

KSAF 

6703 

SHERTZ 

0074 

CLKQLN 

0020 

KSBF 

6703 

8KPINS 

0006 

CLKTYP 

0000 

K80R 

6701 

START 

4200 

CLOCK 

0001 

KSEN 

6702 

SUNIT 

0000 

COMDN 

4260 

loada 

3665 

SU8PN0 

0004 

COWMAN 

0043 

LOOP 

4203 

8WAPPE 

0021 

CRCMN 

3700 

LPT 

0004 

SWPWT 

0400 

CS A 

0013 

LTA 

0006 

SYS 

0010 

CSAF 

0014 

L374 

3662 

TASK 

0013 

CUR 

0010 

HCR 

0005 

TEMPFN 

4047 

OATE 

0040 

MCREF 

0041 

TFTABL 

1367 

DC ASET 

4316 

mcrsys 

0001 

TMP 

3627 

DERAIL 

0007 

mevflg 

4320 

TOOH 

0037 

DF32 

0012 

MSGTBL 

1176 

TOOL 

0036 

OMPFLG 

3636 

MSGWT 

0020 

TSTABL 

1244 

DNEWT 

0001 

NETWT 

0010 

tswflc 

0035 

OONEFG 

4201 

NONRWT 

4000 

TTY 

0003 

OTA 

0007 

NOTOK 

4044 

UNBARG 

0012 

DVC 

3630 

NT ASKS 

0023 

UNIT 

4317 

EAE 

0001 

OK 

4045 

USERWT 

0100 

EFWT 

2000 

osfill 

0004 

UT 

4033 

ENABWT 

0040 

osflds 

0002 

UTIL 

4011 

EORHWT 

0200 

oskbdv 

0030 

WAITE 

0002 

ERKNT 

4323 

ossysd 

0010 

WAITM 

4425 

ERRCOV 

4117 

OSTTOV 

0031 

WCDF 

4347 

ERRIND 

4102 

ose 

0023 

WCRC 

3735 

ERRP 

3711 

0S8F 

0020 

WRITEL 

3713 

ERRX 

3705 

PARTBL 

1420 

WRITEX 

3714 

E3 

3707 

PAHTNS 

0000 



FINAL 

4103 

POP 12 

0000 



FIXOVC 

3600 

P0P8E 

0001 




28? 




ERRORS SETECTEOl B 
LINKS OENERATEOI 0 


A8UNIT 

AC0002 

AC2000 

AC3777 

AC4000 

AC7775 

AC7776 

AOOR 

AO 

BFIELO 

BFLO 

BKNT 

BLKARG 

BPTR 

BSIZE 

BSTATE 

buffer 

BYTE 

CAL 

CASINT 

cofmsg 

CHECKS 

CHECKP 

CHECKR 

CHK 

CLEAR 

CLKQLN 

CLKTYP 

CLOCK 

COMON 

COWMAN 

CRCMN 

CS 

CS A 

CSAP 

CT 

CUR 

DATE 

DC ASET 

OERAIL 

DF32 

OMPFLG 

ONEwT 

OONEFG 

OTA 

OVC 

EAE 

EF4T 

enabwt 

EORMWT 

ERKNT 

FRRCOV 

ERRIND 

ERRR 

ERRX 

n 

F INAL 

FIXDVC 

FLO 


263 


287 

339 

344# 




112# 






111# 






110# 






109# 

108# 

538 





107# 

533# 

539 

543 

559 

562 

5S1 

135# 

373# 

570 





329# 

372 





325 

370 

365# 

630 



130# 






330 

332 

374 

376 

366# 

609 

565 

617# 

627 




454 

455 

477 

460# 

563 


561 

613# 

625 

639 



324 

321 

367# 




116# 

528 

531 

576 

590 


490# 

492 

530 




564 

596 

601# 

603 



311 

353 

435 

452# 

456 

469 

54# 






296 

306# 





319 

350 

364 

466# 

473 

476 

308 

361 

447 

456# 

461 


95# 






94# 






63# 

93 





434 

576# 





160# 

351# 

364 





138# 






74# 

240 





75# 






136# 






175 

175 

241# 

242 

333 

493 

166# 

536 

609# 





129# 






73# 






330# 

537 

607 




149# 

482 

529# 

541 

566 



69# 






284 

266 

291 

300 

306# 


50# 






141# 

146# 






1 4<1 # 

358 

574 

615# 




359 

414 

496# 




459 

461# 

562 




357 

360# 

367 

476 

504 


322 

35b# 





358# 

364 





362 

446 

482# 




281# 

316 

428 

566 



534 

587 

602# 





585 


426 


501 


564 


507 


SS4 598 640 


284 




I 


FREE 

133# 


SET 

420 

542 

BO 

348 

351 

HERTZ 

97# 


HGHFLD 

52# 


ZCI 

74# 


XDXSP 

335 

349 


424 


INZHT 

179 

139# 

XHT 

137* 

344 

X0T8L 

292 

407# 

XOTLOO 

294# 

303 

XOTPTR 

293 

294 

IOT0 

407 

440# 

X OT1 

408 

471# 

IOT4 

340# 

409 

I0T5 

410 

491# 

X0T4 

411 

464# 

X0T4C 

323# 

• 12 

XOT7 

413 

453# 

KCLR 

224# 

440 

KCOA 

234# 

323 

KLSA 

229# 

140 

KRSB 

234# 

453 

K8AF 

233# 

491 

K8BF 

228# 


KSDR 

224# 

471 

KSEn 

227# 


LOADA 

310 

330# 

LOOP 

531# 

593 

LPT 

64# 


LTA 

48# 


1374 

320 

334# 

MCR 

47# 

90 

MCREF 

147# 


MCR8V8 

91# 


MEVFLG 

540 

589 

M8CTBL 

152# 

153 

H8GWT 

147# 


NETWT 

148# 


NOTOK 

443 

444# 

NTASK8 

53# 

70 

OK 

440 

447# 

08FILL 

88# 


03FLDS 

84# 


OSKBDV 

85# 


088780 

07# 


OSTTOV 

04# 


088 

78# 

83 

0S8F 

79# 


PARTBL 

119# 


PARTN8 

55# 


P0P12 

49# 


P0P8E 

48# 


PFLO 

588 

592# 

POST 

1*7# 

591 

P08TD8 

117# 

400 

PWRF 

44# 


PWRFAL 

51# 


P70 

550 

414# 


549 

377 

553 

433 

540 

443# 

543 

444 

595# 

499 

599 

441 

352 

370 

435 

403 

404# 

494 

302 

424 

497 

434 



302 

307# 






m 

444 

342 34? 313 431 400 431 

412# 

172 

153 155 158 159 


285 


RANDW 

550# 

60S 



REAOX 

319# 

334 

363 


REA011 

554 

605# 



RECEIV 

123# 

532 



RE8TBL 

150# 

159 



REW8W 

419 

423 

444 

451# 

RF00 

72# 




RK8 

71# 

07 

102 


RTN3TS 

581# 

620 



RUN 

125# 




RUNWT 

142# 




RW 

535 

55# 

614# 

622 

RWCRC 

327 

346# 



RX8 A 

77# 




SELERR 

315 

619# 



send 

122# 




8ENDW 

131# 




SETUP 

505 

575 

621# 

642 

8HERTZ 

96# 




SKPINS 

128# 

529 



START 

176 

520# 



3UNIT 

103# 




SU8PND 

126# 




SWAPPE 

70# 

101 

157 

139 

SWPWT 

143# 




SYS 

102# 




TASK 

172 

174 

176 

240# 

TEMPFN 

425 

431 

450# 


TFT ABL 

155# 

158 

178 


THP 

297 

290 

301 

305# 

TODH 

165# 




TOOL 

164# 




tstabl 

153# 

153 

174 


TSWFLG 

163# 




TTY 

65# 




IJDC 

115 




UNBARG 

132# 




UNIT 

418 

426 

548 

566 

USERWT 

145# 




UT 

429 

435# 



UTIL 

417# 

546 



WAITE 

124# 

579 



WAITM 

118# 




WCDF . 

552 

369 

571 

636# 

WCRC 

372 

38 2# 



WRITEL 

364# 

379 



WRITEX 

363# 

623 




A 13754 
113757 
.13740 
113741 
^13762 
A 13743 
113744 
A 13765 
113744 
j.13747 
.*13770 
A i3771 
^13772 


429 431 


342 

359 

358 

354 

348 

344 

335 

319 

315 

313 

312 

311 

309 


351 

382 

349 

350 

355 

353 


352 

344 


43? 


284 





I 


*13773 

3BS 

*13774 

199 

*13775 

291 

*13776 

2S* 

113777 

IBS 

*1*13* 

5S5 

*14137 

501 

.141*0 

500 

!l4l*i 

497 

*141*1 

4*1 

11 * 1*3 

47* 

;i4i*4 

474 

*141*5 

47B 

*141** 

441 

Il4l*7 

436 

*14170 

434 

;i4iM 

431 

*14171 

4«9 

*14171 

410 

*14174 

414 

114175 

421 

*1417* 

4IS 

*14177 

418 

*14361 

*41 

114362 

*35 

1143*3 

634 

*143*4 

*30 

1143*5 

*1* 

1143*6 

624 

*143*7 

*23 

*1*370 

5SS 

11*371 

542 

*14372 

572 

*14373 

570 

11437* 

5*4 

114375 

551 

11*37* 

54* 

*14377 

337 


3*1 


9M 


Ml 


41* 


*07 


* 



V3 
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/PARAMETERS FOR RT8-0 TASKS (VERSION PAL8-V9D 19/11/75 FACE 1 


1 

2 

5 

a 

5 

* 

7 

S 

9 

IS 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 
2* 

27 

28 

29 

30 

31 

32 

33 
14 
35 
1* 

37 

38 

39 

40 

41 

42 

43 

44 


/PARAMETERS FOR RTS>8 TASKS (VERSION 2) 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT (C) 1974,1975 BY DIGITAL EQUIPMENT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/THE INFORMATION IN THIS OOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
/CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT, 

/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL, 

/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
/OIGITAL. 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 
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i 


/PARAMETERS FOR RTS-8 TASKS 


(VERSION PAL8-V9D 09/11/75 PACE 2 


95 

a? 

as 

a9 

so 

51 

52 

53 

34 

35 

36 

57 

58 

59 

60 
61 
62 


/RTSS V2 EXEC PARAMETERS • EOZTEO BY USER 

0001 PDPSE’l 
0000 POP 12»0 
0001 EAErI 

0001 pwrpal«i 

0030 HGHFIO«30 
0023 NTA8KS-23 

0001 cmeckptm 

0000 PARTNS>0 

/(THE N PARTITION! ARE NUMBEREO PROM 0 TO N»l) 
/COMMON TASK NUMBER8 * EDITED BY USER 

/IT IS ADVISABLE TO DEFINE ALL TABKB HERE, NAMES GIVEN BELOW 
/ARE USED BY SOME SYSTEM TASKS AND SHOULD BE DELETED FROM THIS 
/|*IBT IF THE CORRESPONDING TASK IS NOT INCLUDED IN THE SYSTEM 


63 

0001 

CLOCK•1 


64 

0002 

PWRF»| 


65 

0003 

TTY«3 


66 

0004 

LPT*4 


67 

0005 

MCR»B 


68 

0006 

LTAw6 


69 

0007 

OTAi7 


70 

0021 

3WAPPER*21 


71 

0010 

RK8-10 


72 

0011 

RF08-11 


73 

0012 

DF32P12 


74 

0013 

CSA-13 


73 

0014 

CSAFil4 


76 

0016 

ICS416 


77 

0017 

RXBAH7 


78 

0023 

OSSfNTASKS 


79 

0020 

O88FB20 


80 




81 


/SOFTWARE PARAMETERS 

82 




83 


IFDEF 

OSS 

84 

0002 

OSFLDS'2 


85 

0030 

OSKBDVbSS 


86 

0031 

OSTTDVB31 


87 

0010 

OSSYSObRKB 


88 

0004 

08FILLP4 


89 


> 


90 


IFDEF 

MCR 

91 

0001 

MCRSY8-1 


92 


» 


93 


IFDEF 

CLOCK 

94 

0000 

CLKTYPiB 


95 

0020 

CLKQLNI20 


96 


DECIMAL 


97 

0170 

HERTZ'120 


98 

0074 

SHERTZB60 


99 


OCTAL 
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/PARAMETERS FOR RTS-8 TASKS (VERSION PAL8-V9D 09/11/75 PAGE 2.1 

100 » 

101 IFDEF SWAPPER « 

102 0010 SYS'RKS 

103 0000 SUNIT90 

104 » 
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/PARAMETERS POP RTS-8 TASKS 


(VERSION PAL8-V4D B9/U/75 PACE 3 


193 


/EQUIVALENCES! 


198 





107 

7344 

AC7776* 

CLL STA 

RAL 

108 

7346 

AC7775* 

CLL STA 

rtl 

109 

7330 

AC4000P 

CLA STL 

RAR 

110 

7350 

AC3777* 

CLL STA 

RAR 

111 

7332 

AC20004 

CLA 8TL 

RTR 

112 

7326 

AC0SS2* 

CLA STL 

RTL 

113 





114 

115 

116 


/MONITOR CALL VALUES! 

4020 

CAL* 

JMS 

20 /CALL THE EXECUTIVE 

117 

5424 

POSTOSa 

JMP I 

24 /DISMISS AN INTERRUPT 

118 

114 

120 

8425 

NAITM* 

JMS I 

25 /WAIT FOR MULTIPLE EVENTS 




/NOTE! "••" MEANS CRITICAL VALUE MAY NOT 

121 




/BE CMANGED WITHOUT MOOIPYINS SVSTEH CODEU 

122 

0000 

SEND* 

0 

/SEND MESSAGE 

123 

9001 

RECEIV- 

1 

/RECEIVE MESSAGE 

124 

0002 

WAITE* 

2 

/WAIT FOR EVENT FLAG 

123 

0003 

RUN* 

3 

/CONTINUE TASK EXECUTION 

128 

0004 

SUSPNDfl 

4 

/SUSPEND TASK EXECUTION 

127 

0005 

POST* 

5 

/POST AN EVENT FLAG 

128 

0006 

SKPINSa 

8 

/INSERT CODE INTO INTERRUPT SKIP CHAIN 

124 

0097 

DERAIL* 

7 

/INITIATE ENS-ACTION 

130 

0010 

blkarg* 

10 

/BLOCK TASK FOR REASON SPECIFIED IN ARS 

131 

0011 

SENONa 

11 

/SEND MESSAGE AND WAIT 

132 

0012 

UNBARG* 

12 

/UNBLOCK TASK FOR REASON SPECIFIED IN AR6 

133 

4000 

FREE* 

4000 

/••FREE PARTITION 

134 





135 



IPOEP UOC «AO*S|DO*l!0I*2!GC*3|EC*4|RC*S 

136 




OC*6!ECT*7|CS*10|DCT*ll|AI«llP 

137 





138 


/TASK STATUS FLAGS! 

134 





140 

4000 

NONRWT* 

4000 

/••NONRESIDENT TASK WAIT 

141 

2000 

EFWT* 

2000 

/EVENT FLAG WAIT 

142 

1000 

RUNWT* 

1000 

/SCHEOULE WAIT 

143 

0400 

SwPWT* 

0400 

/••SWAPPER WAIT 

144 

0208 

EORMWT* 

0200 

/EVENT FLAG OR MESSAGE WAIT 

145 

0100 

USERWT* 

0190 

/USER SPECIFIED WAIT 

146 

0040 

ENABWT* 

0040 

/ENABLE WAIT 

147 

0020 

M8GWT* 

0020 

/MESSAGE WAIT 

148 

0010 

NETWTa 

0010 

/NETWORK WAIT (RESERVED FOR POSSIBLE FUTURE 

144 

0001 

DNEWTa 

0001 

/••DOES NOT EXIST WAIT 
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/PARAMETERS FOR RTS-8 TASKS 


(VERSION PALS-V9D 09/11/73 PA0E 4 


150 

151 

152 

153 

154 

155 
158 

157 

158 
154 
188 
181 
182 

183 

184 

185 
188 
187 
168 



/SYSTEM 

LOCATIONS! 


1176 

MSGTBL* 

1200-2 

/TASK 

MESSAGE TABLE 

1244 

TSTA0L* 

NTASKS*2*2*M86TBL«4 /TASK 

STATE TABLE • HOLDS 




/TASK 

LINK,UM,OF,IF,PC,AC ( 

1387 

TFTABL* 

NTASK8*2*4*TSTABL-1 /TASK 

FLAGS TABLE • HOLDS 




/TASK 

STATUS FLAGS 



IFOEF 

SWAPPER « 


1414 

RESTBL* 

TFTA8L*NTA8KS*2 

/RESIDENCY TAGLE 

1420 

partbl* 

NTASKS-SMAPPER"2*RE8TBL*387774 

/PARTITION TABLE 

0043 

C0MMAN0*43 

» 


/SWAPPER COMMANO 1 

0035 

TSWFLG* 

IS 

/TASK 8W INHIBIT FLAG 

IN FIELD 0 

0036 

TOOL* 

36 

/LOW ORDER TIME OF DAY 

IN FIELD 0 

0037 

TODH« 

37 

/HIGH OROER TIME OF DAY IN FIELD 0 

0040 

DATE* 

40 

/OATE IN 088 FORMAT 

IN FIELD 0 

0041 

MCREF* 

41 

/MCR START EVENT FLAG 

IN FIELD 0 
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/PARAMETERS FOR RT8-8 TASKS (VERSION PALS-V90 09/11/73 RASE 3 


1*9 

17S 

171 


mil JmT’ ' CUR ’' ,,Nm,< * N ® 


/HCSSASe SUFFER INITIALLY CLEAR 
/INITIAL FLAGS 
/INITIAL AC 0 


172 


121* 

*TA3K*2*MSGTBL 

173 

0122* 

0000 

ZBLOCK 2 

174 


1314 

*TASK«49T8TABL 

175 

01324 

0011 

CURX10+CUR 

176 

01325 

3000 

START 

177 

0132* 

0000 

0 

178 


1403 


179 

01403 

0000 

INIWT 



/CASSETTE ENTER, LOOKUP, CLOSE! RTSS V2 PAL*»V9D 09/11/73 PAGE * 


1S0 

181 

182 

183 

ie« 

185 

186 
187 
1 SB 

189 

190 

191 

192 

193 

194 
193 

196 

197 

198 

199 

200 
201 
202 

203 

204 
203 
20* 

207 

208 

209 

210 
211 
212 

213 

214 

215 
21 * 

217 

218 

219 

220 
221 
222 
223 




/CASSETTE ENTER, LOOKUP, CLOSE! RTS8 VI 0/30/74 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT (C) 1974,1973 0Y DIGITAL EQUIPMENT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
/AND SHOULD NOT 0E CONSTRUED AS A COMMITMENT BY OIGITAL EQUIPMENT 
/CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT, 

/ 

/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
/(WITH INCLUSION OF OIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDEO IN WRITING BY OIGITAL, 

/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
/OIGITAL, 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 
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/CASSETTE ENTER# LOOKUP, CLOSEl RTSS V3 PAL8-V40 M/ll/75 RACE 7 


224 

225 
224 
227 

til 

22« 

231 

231 


234 

233 

234 
237 
231 
234 
24S 

241 

242 

243 

244 

243 

244 

247 

248 
244 

250 

251 

252 

253 

254 
253 


/CSAE 

/FORMAT OP MAS8A6E ZSt 


/MSS 

/WlRI 

/ 

/ 

/ 

/WORD 

/ 

/ 

/WORD 

/ 

/ 

/WORD 


ZSLOCK 3 
OR,UNIT IIT 


••ENTER 
1•LOOKUP 
itCLCSE 

4-U • UNIT 

ADDRESS OP START CP HEADER XNPO POR ENTER*LOOKUP 
MUST ALL CE IN SANE FIELD 
STATUS MORO POR CLOSE 

FIELD OP HEADER XN SITS S»S FOR ENTER*LOOKUP 
RECSXIE RUT IN HEADER+13 BY LOOKUP 

••NOT POUND OR PHYSICAL ERROR 
STATUS WORD FOR ENTER*LOOKUR 
/STATUS MORS RETURNS • STATUS FOR PHYSICAL ERROR(E,L4C) 0 
/NEB, ERROR CODE FOR LOSICAL ERROR (NONE DEFINED YET) 


■Bl® Fl»l« /FIELD OP R/N BUFFER 

•000 REAORD 

4000 NRXTEM0BD 

•010 REWINDS10 

0039 BACKFIP50 

0840 WRGAPf40 

•050 BACK6L>5D 

0070 SKPPlLi7D 

0040 HSIZE«40 


/PARAMETERS POR RTSS 
0000 XNIWT«0 

••ID CURPlS 

••14 T ASKvCSAP 

•••i field curxis 


245 


/CASSETTE ENTER, LOOKUP, CLOSEl RTS8 V2 PAL8»V4D 04/11/75 PACE 8 


254 


3000 


• 3000 





257 



START, 






258 

13010 

4020 

LOOP, 

CAL 





254 

13001 

0001 


RECEXV 





240 

13002 

•000 

ADOR, 

0 





241 

13013 

3244 


OCA 

FLO 




242 

13004 

7344 


AC7775 





243 

13005 

1202 


TAO 

ADOR 




244 

13004 

3241 


OCA 

MEVFLG 




245 

13007 

3242 


OCA 

STATUS 




246 

13010 

4243 


JMS 

CDPMSG 




247 

13011 

1602 


TAD 1 

ADOR 




248 

13012 

6211 


COP 

CUR 




269 

13013 

3240 


OCA 

CUNIT 




270 

13014 

1240 


TAD 

CUNIT 

/•ET, TYPE 

OF 

OPERATION 

271 

13015 

7104 


CLL RAL 





272 

13016 

7430 


SZL 





273 

13017 

5246 


JMP 

ENTER 




274 

1302S 

7700 


SMA CLA 





275 

13021 

5777 


JMP 1 

(CLOSE 




276 

277 

13B22 

5774 


JMP I 

(LOOKUP 




278 

13023 

7300 

aldone, 

CLL CLA 





274 

13024 

2202 


I8Z ADOR 




280 

13025 

1242 


TAD 

STATUS 

/RETURN IT 

TO 

caller 

2S1 

13026 

4243 


JMS 

CDPMSG 




282 

13027 

3402 


OCA X 

ADOR 




283 

13030 

6211 


COP 

CUR 




284 

13031 

1244 


TAO 

FLO 




285 

13032 

3236 


OCA 

RFLO 




284 

13033 

1241 


TAD 

MEVFLG 




287 

13P34 

4020 


CAL 





288 

13035 

• 005 


POST 





284 

13036 

0000 

RFLO, 

0 





240 

13037 

5200 


JMP 

LOOP 




241 

13040 

•000 

CUNIT, 

0 





242 

13041 

0000 

mevflg, 

0 





243 

13042 

0000 

STATUS, 

0 





244 









295 

13043 

•000 

CDFM8G, 

0 





296 

13044 

• 000 

FLO, 

0 





247 

13045 

5443 


JMP I 

CDPMSG 
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/CASSETTE ENTER, LOOKUP, CLOSEl RTSS V2 RALS»V9D 09/11/75 RASE 9 


6ETAR6 

(ENTLKR /SEE IP ALREAOY EXISTS 
ALOONE 

NTP /NO«NOT POUND 
DELET /YES-DELETE IT 
BACK 

(HANSET /DO A HANDLER OR 


ALOONE 

ALDONE 


298 

13046 

7300 

ENTER, 

CLA CLL 

299 

13047 

4262 


JMS 

300 

13050 

4775 


JMS I 

301 

13051 

5223 

LKRRTN, 

JMR 

302 

13052 

5254 


JMR 

303 

13053 

5333 


JMR 

304 

13054 

4303 

NTP, 

JMS 

305 

13055 

4774 


JMS Z 

306 

13056 

0000 

WRPLD, 

0 

307 

13057 

0000 

HDRADR, 

0 

30S 

13060 

5223 


JMR 

309 

13061 

5223 


JMR 

310 





311 

13062 

0000 

GETARO, 

0 

312 

13063 

2202 


ISZ 

313 

13064 

4243 


JMS 

314 

13065 

1602 


TAD I 

315 

13066 

3257 


DCA 

316 

13067 

2202 


ISZ 

317 

13070 

7330 


AC4000 

318 

13071 

1602 


TAD I 

319 

13072 

6211 


CDP 

320 

13073 

3256 


DCA 

321 

13074 

5662 


JMR I 


ADDR 

CDPM3G 

ADDR 

HDRADR 

AOOR 

ADDR 

CUR 

WRPLD 

6ETARG 


/GET AR6S PROM CALLER'S MESSAGE 


/WORD 2 


/WRITE 
/WORD 3 
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/CASSETTE ENTER, LOOKUP, CLOSEl RTS8 V2 PAL8«V9D 09/11/75 PAGE 10 


322 

13075 

0000 

ROOR, 

0 



323 

13076 

0373 


AND 

(374 


324 

13077 

1372 


TAD 

(■200 


325 

13100 

7640 


SZA CLA 



326 

13101 

5223 


JMP 

ALDONE 

/NOT CRC 

327 

13102 

5675 


JMP I 

ROOR 

/WAS CRC 

328 






329 

13103 

0000 

BACK, 

• 



330 

13104 

4771 


JMS I 

CUTILST 


331 

13105 

0030 


BACKP1 


/TO PILE GAR 

332 

13106 

5223 


JMR 

ALDONE 

/NON.ZERO 

333 

13107 

4771 


JMS I 

CUTILST 


334 

13110 

0050 


BACKBL 



335 

13111 

5326 


JMR 

BKERR 

/PASS STATUS 

336 

13112 

1770 


TAD I 

(0L0R8Z 


337 

13113 

3767 


DCA I 

(RECSIZ 


338 

13114 

4774 


JMS I 

(HANSET 

/READ LAST REC OP PREY PILE 

339 

13115 

0011 


READ4-F1M 

/DON'T STORE DATA 

340 

13116 

3464 


INCH 


341 

13117 

4275 


JMS 

ROOR 

/ERROR READING LAST BLK 

342 

13120 

4771 

NEWGAP, 

JMS I 

(UTILST 

343 

13121 

0040 


WRGAR 


/WRITE NEW GAR 

344 

13122 

5223 


JMP 

ALDONE 


345 

13123 

1366 


TAD 

(HSIZE 


346 

13124 

3767 


OCA I 

(RECSIZ 


347 

13125 

5703 


JMR I 

BACK 


348 







349 

13126 

0365 

BKERR, 

AND 

(3775 

/ACuSTATUS 

350 

13127 

1364 


TAD 

(■41 

/CLEAR LEADER ERROR 

351 

13130 

7640 


SZA CLA 



352 

13131 

5223 


JMR 

ALDONE 


353 

13132 

5320 


JMR 

NEWGAR 

/YES-WRITE NEW GAR 

354 






355 

13133 

4303 

OELET, 

JMS 

BACK 


356 

13134 

4774 


JMS I 

(HANSET 


357 

13135 

4010 


WRITEUP! 



358 

13136 

3424 


EMRTIN 



359 

13137 

5223 


JMR 

ALDONE 


360 

13140 

1363 


TAO 

(LKRRTN 


361 

13141 

3775 


DCA I 

(ENTLKR 


362 

13142 

5762 


JMP I 

(PLOOP 


363 







364 

13162 

3302 





365 

13163 

3051 





366 

13164 

7737 





367 

13165 

3775 





368 

13166 

0040 





369 

13167 

3252 





370 

13170 

3351 





371 

13171 

3200 





372 

13172 

7600 





373 

13173 

0374 





374 

13174 

3216 





375 

13175 

3267 





376 

13176 

3253 
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/CASSETTE ENTER, LOOKUP, CLOSEl RTSS VI PALS-V9D M/U/7S RASE 10-1 

377 11177 3400 

37S 3100 PACE 


/CASSETTE ENTER, LOOKUP, CLOSEl RTSS V2 PAL6-V9D 09/11/75 PACE 11 
379 


380 

13200 

0000 

UTILST, 

0 




3S1 

13201 

1777 


TAD 

I 

(CUNIT 


382 

13202 

0376 


AND 


(7 


383 

13203 

3245 


DCA 


M8C1 


384 

13204 

1600 


TAD 

I 

UTILST 


385 

13205 

3246 


DCA 


MSC2 

/FNC 

386 

13206 

2200 


ISZ 


UTILST 


387 

13207 

4775 


JMS 

I 

(DOA 


388 

13210 

1247 


TAD 


MSGS 


389 

13211 

3774 


DCA 

I 

(STATUS 


390 

13212 

1774 


TAD 

I 

(STATUS 


391 

13213 

7450 


SNA 




392 

13214 

2200 


ISZ 


UTILST 


393 

13215 

5600 


JMP 

I 

UTILST 


394 








395 

13216 

0000 

HANSET, 

0 




396 

13217 

1777 


TAD 

1 

(CUNIT 


397 

13220 

0376 


AND 


(7 


390 

13221 

1373 


TAD 


(4000 


399 

13222 

3245 


OCA 


MSC1 


400 

13223 

1616 


TAD 

I 

HANSET 


401 

13224 

3246 


DCA 


MSC2 

/PNC*BUPFLD 

402 

13225 

2 216 


ISZ 


HANSET 


403 

13226 

1616 


tad 

I 

HANSET 


404 

13227 

3247 


DCA 


HS03 

/0UF 

405 

13230 

1252 


TAD 


RECSIZ 


406 

13231 

3250 


OCA 


M8G4 


407 

13232 

2216 


ISZ 


HANSET 


408 

13233 

4775 


JMS 

I 

(DOA 


409 

13234 

1251 


TAD 


M8G5 


410 

13235 

3774 


DCA 

I 

(STATUS 


411 

13236 

1774 


TAD 

I 

(STATUS 


412 

13237 

7450 


SNA 




413 

13240 

2216 


ISZ 


HANSET 

/GOOD RET 

414 

13241 

5616 


JMP 

I 

HANSET 


415 








416 

13242 

0000 

MSG, 

Z0LOCK 

3 


417 

13245 

0000 

MSG 1, 

0 




418 

13246 

0000 

MSG2, 

0 




419 

13247 

0000 

MSG3, 

0 




420 

13250 

0000 

MSG4, 

0 




421 

13251 

0000 

MSG5, 

0 




422 








423 

13252 

0000 

RECSIZ, 

0 
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484 

13253 

4772 

LOOKUP, 

JM3 I 

(GETARG 

423 

13254 

1771 


TAD I 

(HORAOR 

426 

13255 

1370 


TAD 

(13 

487 

13256 

3352 


OCA 

RETAOR 

428 

13857 

4267 


JHS 

ENTLKP 

489 

13260 

7000 


NOP 

/ERROR 

430 

13861 

7410 


SKP 

/NOT POUND 

431 

13262 

1767 


TAD X 

(XNCH+13 /RECSXZE 

432 

13263 

4766 


JHS X 

(C0FHS6 

433 

13264 

3752 


OCA X 

RETAOR 

434 

13265 

6211 


COP 

CUR 

435 

436 

437 

13266 

5765 


JHP X 

CALOONE 

13267 

•000 

ENTLKP, 

0 


438 

13270 

1764 


TAD X 

CNRPLO 

439 

13271 

1363 


TAD 

(2201 /ALREADY HAS 4000 

440 

13272 

3327 


DCA 

USRFLD 

441 

442 

13273 

13274 

4200 

0010 


JHS 

REMIND 

UTXLST 

443 

13273 

5343 


JHP 

STSET /ERROR 

444 

13276 

1362 


TAD 

(H8XZE 

445 

13277 

3252 


DCA 

RECSXZ 

446 

13300 

3350 


DCA 

PXLNUH 

447 

13301 

5305 


JHP 

FL2 

448 

449 

13302 

13303 

4200 

0070 

FLOOP, 

JHS 

SKPFXL 

UTXL4T 

450 

13304 

5343 


JHP 

STSET 

431 

13305 

2350 

PL2, 

xsz 

PXLNUH 

452 

453 

13306 

13307 

4216 
• 010 


JHS 

REA09F1 

HANSET 

454 

13310 

3464 


INCH 

/SUFFER 

453 

13311 

5343 


JHP 

STSET 

456 

13312 

1361 


TAD 

(XNCH 

457 

13313 

3345 


DCA 

Pi 

458 

459 

13314 

13315 

1745 

7650 


TAD X 
SNA CLA 

Pi 

460 

13316 

5342 


JHP 

NPNDRT /SENTINEL, FILE NOT FOUND 

461 

13317 

1767 


TAD X 

(XNCH+13 

462 

13320 

3351 


OCA 


463 

13321 

1771 


TAD I 

(HORAOR 

464 

13322 

3346 


DCA 

P2 

463 

13323 

1360 


TAO 

(•10 /FIRST 10 CHARACTERS 

466 

13324 

3347 


DCA 

SCNT 

467 

468 

13325 

13326 

1745 

7041 

SLOOP, 

TAO X 

C X A 

PI 

469 

13327 

0000 

USRFLD, 

0 


470 

13330 

1746 


TAD X 

P2 

471 

13331 

6211 


COF 

CUR 

472 

473 

13332 

13333 

0357 

7640 


AND 

SZA CLA 

(177 /HATCH HI 7 

474 

13334 

5302 


JHP 

FLOOP /NOT CORRECT PXLE KEY 

475 

13335 

2345 


XSZ 

PI 

476 

13336 

2346 


xsz 

P2 

477 

13337 

2347 


xsz 

SCNT 

478 

13340 

5325 


JMP 

SLOOP 
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479 

13341 

2267 


ISZ 

ENTLKP 

/FOUND 

480 

13342 

2267 

NFNDRT, 

xsz 

ENTLKP 

/NOT FOUNO 

481 

13343 

3774 

STSET, 

OCA I 

(STATUS 

/ALL HAVE STATUS 

442 

13344 

5667 


JMP I 

ENTLKP 


483 







484 

13345 

0000 

PI, 

0 



485 

13346 

0000 

P2, 

0 



486 

13347 

0000 

SCNT, 

0 



487 

13350 

0000 

FILNUM, 

0 



486 

13351 

0000 

OLORSZ, 

0 



489 

13352 

0000 

RETAOR, 

0 




490 

491 13357 0177 

492 13360 7770 

493 13361 3464 

494 13362 0040 

495 13363 2201 

496 13364 3056 

497 13365 3023 

498 13366 3043 

499 13367 3477 

500 13370 0013 

501 13371 3057 

502 13372 3061 

503 13373 4000 

504 13374 3042 

505 13375 3415 

506 13376 0007 

307 13377 3040 

508 3400 PAGE 


PAGE 12.1 


XN AC(0 FOR FOUND+NOT FOUNO) 
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319 

13400 

4777 

CLOSE, 

JMS X CUTIL3T 

510 

13401 

0040 


WR 6 AP 

311 

13402 

3776 


JMP X (ALOONE /error writing gap 

312 

13403 

1373 


TAD CH 8 IZC 

313 

13404 

3774 


OCA I (REC 8 XZ 

314 

315 

13403 

13406 

4773 

4010 


JHS I (MAN 8 ET /WRITE SENTINEL 
WRITE9FI 

516 

13407 

3423 


ZER 

317 

13410 

5776 


JMP I (ALOONE 

318 

13411 

4777 


JMS I (UTILST 

519 

13412 

0010 


REWIND 

520 

13413 

5776 


JMP X (ALOONE 

521 

522 

13414 

5776 


JMP I (ALOONE 

523 

13415 

0000 

DOA, 

• 

524 

13416 

4020 


CAL 

525 

13417 

0011 


SENOW 

526 

13420 

0013 


CSA 

327 

13421 

3242 


MSG 

528 

13422 

5615 


JMP I OOA 

529 




530 

13423 

0000 

ZER, 

0 

531 

532 

13424 

13425 

0032 

BIOS 

EMPTIN, 

321103M1SMIBM241131140148140114 

533 

13426 

• 113 



534 

13427 

0120 



533 

13430 

• 124 



536 

13431 

0131 



537 

13432 

•040 



538 

13433 

0040 



539 

13434 

0040 



340 

13433 

0014 



341 

13436 

0000 



542 

13437 

•eoo 


543 

13440 

0000 



544 

13441 

0000 



543 

13442 

0040 



346 

13443 

0040 



547 

13444 

0040 



548 

13445 

0040 



349 

13446 

0040 



550 

13447 

OMI 



551 

13430 

oim 


ZSLOCK 14 

532 

533 

13464 

•eoo 

INCH, 

Z8L0CK 40 /USED BV LOOKUP FOR 

534 

13373 

3216 



553 

13374 

3252 



536 

13375 

0040 



557 

13376 

3023 



558 

13377 

3200 



559 




S 
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A C 0002 

7326 

LOOKUP 3233 

SENDW 

0011 

A C 2000 

7332 

LOOP 3000 

SHERTZ 

0074 

AC3777 

7350 

LPT 0004 

SKPFIL 

•070 

AC4000 

7330 

LTA 0006 

SKPINS 

■ 006 

AC7775 

7346 

MCR BOSS 

SLOOP 

3325 

AC7776 

7344 

MCREF 0041 

START 

3000 

ADO* 

3002 

MCR 8 YS 0001 

STATUS 

3042 

ALOONE 

3023 

MEVFLG 3041 

STSET 

3343 

BACK 

3103 

MSG 3242 

SUNIT 

0000 

BACKBL 

• 050 

MSGTBL 1176 

SUSPND 

0004 

BACKFI 

0030 

MSGWT 0020 

8 WAPPE 

0021 

BKERR 

3126 

MSG 1 3245 

SWPWT 

0400 

BLKARG 

■ 010 

MSGS 3246 

SYS 

••10 

cal 

4020 

MSGS 3247 

TASK 

0014 

COFMSG 

3043 

MSG4 3250 

TFTABL 

1367 

CHECKP 

0001 

MSG5 3231 

T0DH 

0037 

CLKQIN 

• 020 

NETWT 0010 

TOOL 

0036 

clkttp 

0000 

NEWGAP 3120 

TSTABL 

1244 

CLOCK 

0001 

NPNORT 3342 

tswflg 

0035 

CLOSE 

3400 

NONRWT 4000 

TTY 

0003 

comman 

0043 

NTASKS 0023 

unbarg 

0012 

CSA 

0013 

NTF 3054 

USERWT 

0100 

CSAF 

0014 

0L0R3Z 3351 

U 8 RFLD 

3327 

CUNIT 

3040 

OSFILL 0004 

UTILST 

3200 

CUR 

0010 

OSFLDS 0002 

WAITE 

0002 

0ATE 

0040 

0SK6DV 0030 

WAITM 

4423 

DELET 

3133 

OSSYSO 0010 

WRFLO 

3056 

DERAIL 

• 007 

OSTTOV 0031 

WRGAP 

0040 

0F32 

0012 

osa 0023 

WRITE 

4000 

DNEWT 

0001 

0S8F 0020 

ZER 

3423 

DOA 

3415 

PAHTBL 1420 



OTA 

0007 

PAHTNS 0000 



EAE 

0001 

POP 12 0000 



EFWT 

2000 

P0P8E 0001 



EMPTIN 

3424 

POST 0005 



ENABWT 

0040 

P0STD3 5424 



ENTER 

3046 

PWRF 0002 



entlkp 

3267 

PWRFAL 0001 



EORMWT 

0200 

Pi 3345 



FILNUM 

3350 

P 2 3346 



FLO 

3044 

POOR 3075 



floor 

3302 

Read 0000 



FL2 

3305 

RECEIV 0001 



FREE 

4000 

RECSIZ 3252 



FI 

0010 

RESTBL 1414 



GETARG 

3062 

RETADR 3352 



HANSET 

3216 

RE*INO 0010 



HDRAOR 

3057 

RFLD 3036 



HERTZ 

0170 

RF0S 0011 



HGHFLO 

0030 

RK 8 0010 



HSIZE 

0040 

Run 0003 



ICS 

0016 

RUNWT 1000 



INCH 

3464 

RH 8 A 0017 



INIWT 

0000 

SCNT 3347 



LKPRTN 

3051 

SEND 0000 




3 n« 






ERRORS DETECTED! 0 
LINKS GENERATEOl 0 


AC0002 

112# 





AC2000 

111# 





AC3777 

110# 





AC4000 

109# 

317 




AC7775 

108# 

262 




AC7776 

107# 





AODR 

260# 

263 

267 

279 

202 

AlOONE 

278# 

301 

300 

309 

326 


511 

517 

520 

521 


AO 

135# 





SACK 

304 

329# 

347 

355 


8ACKBL 

247# 

334 




BACKFI 

245# 

331 




8KERR 

335 

349# 




6LKARG 

130# 





CAL 

116# 

250 

207 

524 


COFMSG 

266 

201 

295# 

297 

313 

CHECKP 

54# 





CLKOLN 

9b# 





CLKTYP 

94# 





CLOCK 

63# 

93 




CLOSE 

275 

509# 




comman 

160# 





cs 

138# 





CSA 

74# 

526 




C8AF 

75# 

254 




CT 

136# 





CUNIT 

269 

270 

291# 

301 

396 

CUR 

175 

175 

253# 

255 

260 

DATE 

166# 





DELET 

303 

355# 




oerail 

129# 





OF32 

73# 





ONEWT 

149# 





OOA 

307 

408 

523# 

520 


OTA 

69# 





EAE 

50# 





EFWT 

141# 





EMPTIN 

356 

531# 




enabwt 

146# 





ENTER 

273 

290# 




entlkp 

300 

301 

420 

437# 

479 

EORMWT 

144# 





FILNUM 

446 

451 

407# 



FLO 

261 

204 

296# 



floor 

362 

440# 

474 



FL2 

447 

451# 




FREE 

133# 





Ft 

241# 

339 

357 

453 

515 

GETARG 

299 

311# 

321 

424 


HAN0ET 

305 

334 

356 

395# 

400 


452 

514 




HDRAOR 

307# 

315 

425 

463 


HERTZ 

97# 





HGHFLD 

52# 





HSIZE 

249# 

345 

444 

512 


ICS 

76# 





INCH 

340 

431 

454 

456 

461 

INlwT 

179 

252# 





312 314 316 
332 344 352 


432 


203 310 434 


400 402 


402 403 407 


552# 


310 

359 


471 


413 


435 


414 


306 



LKPRTN 

3fl« 

369 


LOOKUP 

276 

424# 


LOOP 

296# 

246 


LPT 

66 # 



LTA 

66 # 



NCR 

67# 

40 


HCREF 

167# 



MCRSY8 

91# 



NEVFL6 

264 

266 

292# 

MSS 

416# 

927 

MSST6L 

152# 

153 

172 

N66WT 

147# 


MSG 1 

363 

344 

417* 

MSG2 

365 

401 

416# 

MSG3 

366 

404 

414# 

M6S4 

406 

420# 


N665 

404 

421# 


NETWT 

146# 



NCW6AP 

342# 

353 


NPNORT 

460 

460# 


NT ASKS 

53# 

76 

153 

NTP 

302 

304# 

OL0R8Z 

336 

462 

466# 

06PILL 

66 # 


08PL06 

64# 



OSKBOV 

65# 



0SSV60 

67# 



06TT0V 

66 # 



OSS 

76# 

63 


OS8P 

74# 



PARTBL 

154# 



PARTNS 

55# 



P0P12 

44# 



POP8E 

48# 



POST 

127# 

286 


POSTOS 

117# 



PWRF 

64# 



PHRFAL 

51# 



PI 

457 

438 

467 

P2 

464 

470 

476 

POOR 

322# 

327 

341 

READ 

242# 

334 

453 

RECEIV 

123# 

259 


RECSXZ 

337 

346 

405 

REST8L 

156# 

159 


retadr 

427 

433 

469# 

rewind 

244# 

442 

519 

RFLO 

265 

269# 


RF08 

72# 



RK6 

71# 

67 

192 

RUN 

125# 


RUNWT 

142# 



RX6A 

77* 



SCNT 

466 

477 

466# 

SENO 

122 # 



SENOW 

131# 

525 


SHERTZ 

46# 



SKPFIL 

246# 

444 


SKPINS 

126# 



SLOOP 

467# 

478 



159 


475 

465# 


423# 


156 


464# 


445 


154 


913 


307 


START 

176 

257# 



STATUS 

265 

280 

293# 

369 

STSET 

443 

450 

455 

461# 

SUNIT 

103# 




8USPND 

126# 




SWAPPE 

70# 

101 

157 

159 

SWPWT 

143# 




STS 

102# 




TASK 

172 

174 

176 

294# 

TFT ABL 

155# 

156 

176 


TOOH 

165# 




TOOL 

164# 




T8TA8L 

153# 

155 

174 


tswflg 

163# 




TTY 

65# 




UDC 

135 




UN6ARG 

132# 




USERMT 

145# 




USRFLO 

440 

469# 



UTILST 

330 

333 

342 

360# 


509 

51# 



WAITE 

124# 




WAITM 

116# 




WRFLD 

306# 

320 

438 


MRGAP 

246# 

343 

510 


WRITE 

243# 

357 

515 


ZER 

516 

530# 



A 13162 

362 




a.13163 

360 




o.l 3164 

350 




0.13165 

349 




113166 

345 




113167 

337 

346 



0.13170 

336 




113171 

330 

333 

342 


0.13172 

324 




o.l 31 73 

323 




0.13174 

305 

336 

356 


0.13175 

300 

361 



0.13176 

276 




0.13177 

275 




o.l 3357 

472 




113360 

465 




113361 

456 




113362 

444 




113363 

439 




113364 

438 




113365 

435 




113366 

432 




113367 

431 

461 



0.13370 

426 




113371 

425 

463 



0.13372 

424 




0.13373 

340 




o.l 337# 

389 

390 

410 

411 

0.13375 

317 

406 



0.13376 

382 

397 



0.13377 

381 

396 



113573 

514 




0.13574 

513 





410 


366 


411 461 


342 343 


441 446 


306 




*15575 S1I 

213574 511 517 

113577 509 510 

VS 


510 511 
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1 

2 

3 

a 

5 

6 
7 
6 
9 

10 

11 

12 

13 

14 

15 
14 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 


/PARAMETERS FOR RTS»0 TASKS 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


(VERSION 2) 


(C) 1974,1975 0Y DIGITAL EQUIPMENT CORPORATION 


/COPYRIGHT 
/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/THE INFORMATION IN THIS OOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 0Y DIGITAL EQUIPMENT 
/CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS OOCUMENT, 

/THE SOFTWARE DESCRIBED IN THIS OOCUMENT IS FURNISHED TO THE PURCHASER 
^MER F0 * U8C 0N A COMPUTER SYSTEM ANO CAN BE COPIED 

/(WITH INCLUSION OF DIGITAL*! COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE 0E PROVIDED IN WRITING BY DIGITAL, 

/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
/OIGITAL, 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 
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/PARAMETERS FOR RTS-0 TASKS 

ss 

AS 

AT 

AS S001 

«9 S00S 

SS SCSI 

91 S0S1 

92 SS3S 

99 SSI) 

9A SSS1 

99 S0SS 

90 
97 
9S 
94 
00 
41 
02 
09 
0A 
09 
00 
07 
0S 
04 

70 

71 

72 

73 

74 

75 
70 
77 
70 
74 
SO 
01 
02 
03 
04 
05 
00 
07 
00 
04 

40 

41 

42 

43 
94 
45 
90 

97 

98 

94 OCTAL 


(VERSION PALS-V90 B9/1I/75 RASE I 

/RTSS V2 EXEC PARAMETERS • EDITED SV USER 

PDPSE41 

POP12»S 

EACil 

PMRPALU 

HSHPLDOS 

NTASKS423 

CMECKPTM 

PARTNS'S 

/(THE N PARTITIONS ARE NUMBERED FROM 0 TO N«l) 

/COMMON TASK NUMBERS • EDITED SV USER 

2! FINC ™* 8 NAMES 6IVEN BELOW 

' ?5r U ?5°-r52 TAtM AN ° 8H0Ut - 0 iC O««TE0 FROM THIS 

/LIST IF THE C0RRE8P0NDINS TASK IS NOT INCLUDED IN THE SYSTEM 


B001 

CL0CK41 


• 002 

PWRF-2 


SSB9 

TTY«3 


SSS4 

LPTi4 


BBSS 

HCR«5 


••04 

LTAaA 


SSS7 

OTAiT 


0021 

SWAPPER421 


SS1S 

RKSalS 


ssu 

rfssru 


• •12 

DF32R12 


B013 

C0A-13 


0014 

CSAF»14 


0B10 

ICS«16 


BS17 

RXSAalT 


••23 

OSSaNTASKS 


•020 

08SF42B 



/SOFTWARE PARAMETERS 


IFDEF 

OSS 

•••2 

0SFL0SP2 


BBSS 

O0KBDV-30 


S031 

08TTDVa3l 


•SIS 

OSSYSDaRKS 


•••A 

OSFILL-4 



IFDEF 

MCR 

0001 

HCRSYSal 



IFDEF 

CLOCK 

0000 

CLKTVPaB 

0020 

CLKQLN-20 

OECIMAL 


0170 

HERTZvlSB 


0074 

3HERTZPA0 



911 



/PARAMETERS FOR RT8«0 TASKS (VERSION PAL6«V9D 19/11/75 

100 > 

1 01 IFOEF SNAPPER « 

102 0010 SYSaRKS 

103 0000 SUNIT«0 

104 > 


PACE 2*1 
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/PARAMETERS FOR RTS-8 TASKS 


105 

106 
107 
106 
10 * 
110 
111 
112 

113 

114 

115 

116 
117 

ns 

li* 

120 

121 

122 

123 

124 
123 
126 
127 
126 
12 * 

130 

131 

132 

133 

134 

135 

136 

137 

138 
13* 

140 

141 

142 

143 

144 

145 

146 

147 

148 
14* 


(VERSION PAL8-V*0 06/11/73 PACE 3 
/EQUIVALENCES! 


7344 AC77764 CLL STA RAL 
7346 AC7775* CLL STA RTL 
7330 AC4000* CLA STL RAR 
7350 AC3777* CLL STA RAR 
73J2 AC2000* CLA STL RTR 
7326 AC0002* CLA STL RTL 

/MONITOR CALL VALUES! 


4020 

CAL* 

JMS 

20 

5424 

POSTDS* 

JMP I 

24 

4425 

MAITM* 

JMS I 

25 


/CALL THE EXECUTIVE 
/OISMIS8 AN INTERRUPT 
/WAIT FOR MULTIPLE EVENTS 


0000 

SEND* 

• 

0001 

RECEIV* 

1 

0002 

WAITE* 

2 

0003 

RUN* 

3 

0004 

8USPN0* 

4 

0005 

POST* 

5 

0006 

SKPINS* 

6 

0007 

DERAIL* 

7 

0010 

BLKARG* 

10 

0011 

SENDW* 

11 

0012 

UNBARG* 

12 

4000 

FREE* 

4000 


/NOTE! "•*" MEANS CRITICAL VALUE MAY NOT 

/•E CHANCED WITHOUT MODIFYING SYSTEM CODE|1 

/SEND MESSAGE 

/RECEIVE MESSAGE 

/WAIT FOR EVENT FLAG 

/CONTINUE TASK EXECUTION 

/SUSPEND TASK EXECUTION 

/POST AN EVENT FLAG 

/INSERT COOE INTO INTERRUPT SKIP CHAIN 
/INITIATE ENS-ACTION 

/SLOCK TASK FOR REASON SPECIFIED IN ARC 
/SENO MESSAGE AND WAIT 

/UN0LOCK TASK FOR REASON SPECIFIED IN ARC 
/••FREE PARTITION 


IFDEF UDC «AO*0JDO*1;OI*2|CC*3!ECM!RC*S 

0C«6ftCT47lCS*|f jDCTRllMmt* 


/TASK STATUS FLAGS! 


4000 NONRNTf 4000 
2000 EFWT" 2000 
1000 RUNWT* 1000 
0400 SwPwT* 0400 
0200 EORMWT* 0200 
0100 U8ERWT■ 0100 
0040 ENABWT* 0040 
0020 MSGWT* 0020 
0010 NETWTi 0010 
0001 DNEWTi 0001 


/••NONRESIDENT TASK WAIT 
/EVENT FLAG WAIT 
/SCHEDULE WAIT 
/••SWAPPER WAIT 
/EVENT FLAG OR MESSAGE WAIT 
/USER SPECIFIED WAIT 
/ENABLE WAIT 
/MESSAGE WAIT 

/NETWORK WAIT (RESERVED FOR POSSIBLE FUTURE USE) 
/••DOES NOT EXIST WAIT 
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150 

151 

152 

153 

154 

155 

156 

157 

158 
15* 
160 
161 
162 

163 

164 

165 

166 

167 

168 


/SYSTEM LOCATIONS! 


1176 

1244 

1367 


1414 

1420 

0043 


MSGTBL* 1200*2 

T3TA6L* NTASKS*2*2*MSGTBL*4 

TFTABL* NTASKS42"4+TSTABL*1 


/TASK MESSAGE TABLE 
/TASK STATE TABLE • H0L08 
/TASK LINK,UM,DP,IF,PC,AC,HQ 
/TASK FLAQS TABLE • HOLDS 
/TASK STATUS FLAGS 

/RESIDENCY TABLE 
/PARTITION TABLE 
/SWAPPER COMMAND BUFFER 


IFDEF SWAPPER « 

RESTBL* TFTABL♦NTASK8*2 
PARTBL* NTASK3*8WAPPER*2*RESTBL*3S7774 
COMMAND-43 


0035 

tswflg* 

35 

0036 

TOOL* 

36 

0037 

TODH* 

37 

0040 

DATE* 

40 

0041 

MCREF* 

41 


/TASK SW INHIBIT FLAG IN FIELD 0 
/LOW ORDER TIME OF DAY IN FIELD 0 
/HIOH ORDER TIME OF DAY IN FIELO 0 
/DATE IN OSS FORMAT IN FIELO 0 
/MCR START EVENT FLAG IN FIELD I 




/PARAMETERS PtR RTS-8 TASKS 


1*9 

1TB 
171 
ITS 
IT J 
17# 
175 
174 
177 
ITS 
179 


(VERSION PALB-V90 09/11/75 PAGE 8 

/TASK TABLE SETUP • "TASK"# "CUR","XNXNT", ANO "START" 
/MUST BE OEPINEO IV TASKI 


euii • 

i 

• USA • 
•1295 ■ 

•1254 ■ 

1 

•1171 B 


*TASK”|+MSOTIL 

ZBLOCK « 

*TA|K«A4TITAIL 

CURX1B+CUR 

START 

• 

"TASK4TPTABL 

XNXWT 


/MESSAGE •UPPER INITIALLY CLEAR 
/INITIAL PLAGS 
/INITIAL AC • 
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IBS 

1S1 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 
19fl 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 
223 


/RTS-S POWER PAIL RECOVERY TASK 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT (C) 1974,1975 BY DIGITAL EQUIPMENT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/THE INFORMATION IN THIS DOCUMENT 18 SUBJECT TO CHANGE WITHOUT NOTICE 
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
/CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS OOCUMENT, 

/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
/(WITH INCLUSION OF OIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 

/DIGITAL EQUXPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
/OR RELIABILITY OP ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIEO BY 
/DIGITAL, 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 
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224 

229 

224 
227 

225 
224 

230 

231 

232 

233 

234 

235 

236 

237 
231 

239 

240 

241 

242 

243 

244 

245 

246 

247 


S. X !Ey Tf0 WMEN P0WE * «TURNS AFTER A POWER FAILURE, XT 
i!TJ T S W 5!wm M LS L SS K .lIlS,I CLETVPe FUAGG XTSf L F » EUT DEPENDS ON OTHER 
/THEIR DEVICE * 5 ™ M ° VX ° C A ROUTINE WHICH, WHEN CAILEO, RE-INITIALIZES 


iISE-riSIJ°K» T ?u! l »I! K ! N - 0N P0WEP fAX l-URE IS OETKRNINED IV THE 
0F /5!.I A ! Lt WHICH CONTAINS one noro 

JuI A 25 JAY ALTER ITS WORO IN THIS TABLE BY SENDING A 
/MESSAGE TO THE POWER-FAIL TASK, THE FORMAT OP THE MESSAGE III 


/WORD 1 
/WORDS 2-3 
/WORD 4 


EVENT FLAG (RTS-S PUTS TASK NUMBER IN LOW SITS) 
RESERVED FOR RTS-8 
NEW TABLE ENTRY VALUE 


/IF THE TABLE ENTRY VALUE XS S, NOTHING WILL SI DONE FOR THE 
/ i!!! E j;S N 25 NG I A8 *‘ XF THE V ^ UE «• 7777, THE TASK'S EVENT FLAB 
!5 CLEmo » 7 he value is between e and 7777 , it 
'J* T0 BE ™ E A00 *M # OF A SUBROUTINE IN THE TASK'S field 

/TO WHICH THE TASK WILL SE DERAXLEO WITH ITS EVENT FLAG WAIT BIT CLEARED, 


1002 TASK* PWRF 
0010 CUR- 10 
0000 XNIWT- 0 
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248 



/INITIALIZATION 

COOE 


249 






250 


0001 

FIELD 

CURX10 


251 


0200 

*200 



252 






253 

10200 

7240 

START, STA 



254 

10201 

6201 

PTR, CDF 0 



255 

10202 

1777 

CTR, TAD I 

(3 

/GET POINTER TO POWER-FAIL EVENT FLAG 

256 

10203 

3203 

PWFLEF, DCA 

PWFLEF 

/WHICH IS ONE LOC BEFORE POWER-UP ROUTINE 

257 

10204 

1376 

tad 

(4000 + T ASK 

258 

259 

10205 

3603 

DCA I 

PWFLEF 

/INITIALIZE IT TO "WAITING" 

260 

10206 

6002 

pwflip, IOF 


/TESTING TWO THINGS • MUST HAVE IOF 

261 

10207 

6201 

COF 0 



262 

10210 

1603 

TAD I 

PWFLEF 

/HAS POWER GONE DOWN AND COME UP? 

263 

10211 

7650 

SNA CLA 



264 

10212 

5252 

JMP 

POWRUP 

/YES 

265 

10213 

1775 

TAD I 

CTA$K*2*MSGTBL 

266 

10214 

7640 

SZA CLA 


/ANY MESSAGES FOR ME? 

267 

10215 

5223 

JMP 

GETMSG 

/YES • GO READ MAIL 

268 

10216 

6202 

CIF 0 



269 

10217 

6211 

CDF CUR 


/NOTHING TO 00 • 

270 

10220 

4425 

WAITM 


/WAIT FOR SOMETHING TO HAPPEN 

271 

10221 

0200 

EORHWT 



272 

10222 

5206 

JMP 

PWFLLP 

/ARISE, FAIR DAMSEL 1 

273 






274 

10223 

6001 

GETMSG, ION 



275 

10224 

4020 

CAL 


1 

276 

10225 

0001 

RECEIVE 


/GET PENDING MESSAGE 

277 

10226 

0000 

MADOR, 0 



278 

10227 

3230 

DCA ,*1 



279 



MEFPTR, 



280 

10230 

7402 

MSGCDF, HLT 


/SET DP TO MESSAGE FIELD 

281 

10231 

1230 

TAD 

MSGCDF 


282 

10232 

3250 

DCA 

MEFCDF 

/SAVE CDF FOR POST CAL 

283 

10233 

7346 

AC7775 



284 

10234 

1226 

TAD 

MAODR 


285 

10235 

3230 

OCA 

MEFPTR 

/POINT TO MESSAGE EVENT FLAG 

286 

10236 

1630 

TAO I 

MEFPTR 

/WHICH CONTAINS SENDING TASK NUMBER 

287 

10237 

0374 

AND 

(177 

/IN LOW OROER 7 BITS 

208 

10240 

1373 

TAD 

cpfltbl 


284 

10241 

3201 

DCA 

PTR 


290 

10242 

1626 

TAD I 

MADDR 

/GET NEW TABLE ENTRY 

291 

10243 

6211 

CDF CUR 



292 

10244 

3601 

DCA I 

PTR 

/STORE IT 

293 

10245 

1230 

TAO 

MEFPTR 


294 

10246 

4020 

CAL 



245 

10247 

0005 

POST 


/POST MESSAGE EVENT FLAG 

296 

10250 

0000 

MEFCDF, 0 



247 

10251 

5206 

JMP 

PWFLLP 



318 
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TASK 
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/HERE ON POWER i 

UP 

299 






300 

10252 

1376 

POWRUP, 

TAD 

(4000+TA8K 

301 

10253 

3603 


0CA I 

PWFLEF /RESET FLAG FOR NEXT POWER FAILURE 

302 

10254 

6211 


COP CUR 


303 

10255 

6001 


ION 

/RESTORE INTERRUPTS 

300 






305 



/RESTORE CLOCK 

ANO teletype flags and interrupt enables 

306 






307 

10256 

6046 


IFOEF 

TTY «TLS> /ONLY SURE WAY TO SET TTY FLAG 

300 

10257 

6316 


IFOEF 

086 <08TTDV"l0*6006* /DITTO FOR 08/8 TTY 

309 




IFDEF 

CLOCK < 

310 


0002 

TICKS! 

HERTZXSHKRTZ 

311 

10260 

6131 


IPIIRO 

CLKTYP <6131* /ENABLE CLOCK XNTS FOR 0K6EA,C 

312 




IFNZRO 

CLKTYP61 < /COMMON 0K6EP, KW12 INIT CODE 

313 



TICKS* 

1750X8HERTZ 

314 




ZFZERO 

CLKTYP*! < /SPECIFIC 0K8EP INIT CODE 

315 



CLZE* 

6130 


316 




STA 


317 




CLZE 

/ZERO COMMAND REGISTER ON DK6EP 

316 




TAD 

(5311*4100 /5310 « ENABLE INT8, 1 KHZ, MODE 1 

319 




* 


320 



CUR* 

6132 

/CALLED CLOE ON DKSEP 

321 



CLASt 

6133 


322 




TAD 

(4100 /4100 « 1 KHZ, MODE 1 

323 




CUR 

/LOAD COMMAND REGISTER 

324 




CLA 

/CLLR DOESN'T CLEAR AC 

325 




TAO 

(•TICKS 

326 




CLA0 

/SCALE DOWN CLOCK TO SOFTWARE RATE 

327 




CLA 

/OOES NOT CLEAR AC 

326 




* 


329 




IFZERO 

CLKTYP*! 4 /SPECIFIC KW12 INIT COOE 

330 



ClEN- 

6134 


331 




TAO 

(300 /FORCE CLOCK BUFFER INTO COUNTER AND 

332 




CLEN 

/ENABLE KW12 INTERRUPTS 

333 




CLA 

/THIS DOESN'T CLEAR AC EITHER 

334 




» 


335 




IFZERO 

CLKTYP-2 < /VT0E INIT COOE 

336 



OPGO* 

6051 


337 



0P8M* 

6052 

/VT8E INSTRUCTIONS TO START ANO STOP DISPLAY 

336 




CLA IAC 


339 




OPGO 

/START VTSE AT A RANDOM ADDRESS, 

340 




DPSM 

/ENABLING INTERRUPTS • THEN STOP IT IMMEDIATELY 

341 




CLA 

/(JUST IN CASE) 

342 




> 


343 




» 

/END OF CLOCK CONDITIONAL 

34a 

10261 

7201 


CLA IAC 


345 

10262 

3202 


OCA 

CTR 


/RTS*8 

POWER 

FAIL RECOVERY 
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34* 



/PERFORM TASK.DEPENDENT 

ACTIONS 

347 






348 

10263 

1202 

PWRUPL, 

TAO CTR 


349 

10264 

1373 


TAD (PFLTBL 


350 

10265 

3201 


OCA PTR 


351 

10266 

1601 


TAO I PTR 

/GET CONTROL WORO FOR THIS TASK 

352 

10267 

7450 


SNA 


353 

10270 

5306 


JMP PWRUPN 

/NOTHING TO DO 

354 

10271 

7040 


CM A 


355 

10272 

7450 


SNA 


356 

10273 

5302 


JMP PWRUPE 

/JUST CLEAR EVENT FLAG WAIT 

357 

10274 

7040 


CM A 


358 

10275 

3301 


OCA ORLAOR 


359 

10276 

1202 


TAD CTR 


360 

10277 

4020 


CAL 

/OERAIL THE TASK 

361 

10300 

0007 


OERAIL 

/INTO THE SUBROUTINE OF ITS CHOICE 

362 

10301 

0000 

DRLAOR, 

, 0 


363 

10302 

1202 

PWRUPE, 

TAD CTR 


364 

10303 

4020 


cal 


365 

10304 

0012 


UNBARG 


366 

10305 

2200 


EFWT1E0RMWT 

/CLEAR ALL FLAGS DEPENDING ON EFWT 

367 

10306 

1202 

PWRUPN, 

, TAD CTR 


368 

10307 

1372 


TAO (.NT ASK S 

369 

10310 

7650 


SNA CLA 

/THROUGH? 

370 

10311 

5206 


JMP PWFLLP 

/YES 

371 

10312 

2202 


ISZ CTR 


372 

10313 

5263 


JMP PWRUPL 


373 




IFZERO NTASKS*40&4000 <PAGE> 

374 

10314 

0000 

PFLTBL * 

ZBLOCK NTASKSM 

/FIRST NORD NOT USED 

375 




IFDEF DTA 

< 

376 


0323 


*PFLTBL*DTA 


377 

10323 

7777 


-l 


378 




> 


379 




IFOEF RK8 

< 

380 


0324 


*PFLTBL*RK8 


381 

10324 

7777 


•1 


382 




> 


383 




IFDEF RF08 

< 

38fl 


0325 


*PFLTBL*RF08 


385 

10325 

7777 


*1 


386 




> 


387 




IFDEF OF 32 

< 

388 


0326 


*PFLTBL*0F32 


389 

10326 

7777 


*1 


390 




» 


391 




IFOEF LPT 

« 

392 


0320 


*pfltbl*lpt 


393 

10320 

77 77 


•1 


394 




> 


395 

10372 

7755 




396 

10373 

0314 




397 

10374 

0177 




398 

10375 

1202 




399 

10376 

4002 




400 

10377 

0003 
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AC0002 

7328 

PARTNS 

0000 

AC2000 

7332 

PDP12 

0000 

AC3777 

7350 

POPBE 

0001 

AC4000 

7330 

PFITBL 

0314 

AC7775 

7346 

POST 

0005 

AC777A 

7344 

POSTDS 

5424 

BLKARG 

0010 

POWRUP 

0252 

CAL 

4020 

PTR 

0201 

CMECKP 

0001 

pwflef 

0203 

CLKQLN 

0020 

pwfllp 

0206 

CLKTYP 

0000 

PWRF 

0002 

CLOCK 

0001 

PWRFAL 

0001 

COMMAN 

0043 

PWRUPE 

0302 

CSA 

0013 

PwRUPL 

0263 

CSAF 

0014 

PwRUPN 

0306 

CTR 

0202 

RECEIV 

0001 

CUR 

0010 

RESTBL 

1414 

DATE 

0040 

RF06 

0011 

OERAIL 

0007 

RK8 

0010 

OF 52 

0012 

RUN 

0003 

ONEWT 

0001 

runwt 

1000 

ORLAOR 

0301 

RX8A 

0017 

OTA 

0007 

send 

0000 

EAE 

0001 

SENQw 

0011 

EFWT 

2000 

SHfcRTZ 

0074 

ENABWT 

0040 

SKPINS 

0006 

EORMWT 

0200 

start 

0200 

FREE 

4000 

SUNIT 

0000 

GETM3G 

0223 

SUSPNO 

0004 

HERTZ 

0170 

SWAPPE 

0021 

HGHFLO 

0030 

SWPWT 

0400 

ICS 

0016 

SYS 

0010 

INI WT 

0000 

task 

0002 

LPT 

0004 

tftabl 

1367 

LTA 

0006 

ticks 

0002 

MADDR 

0226 

tooh 

0037 

MCR 

0005 

tool 

0036 

MCREF 

0041 

tstabl 

1244 

HCRSY8 

0001 

tswflg 

0035 

MEFCDF 

0250 

TTY 

0003 

HEFPTR 

0230 

UNBARG 

0012 

MSGCOF 

0230 

USERWT 

0100 

M8GT0L 

1176 

WAITE 

0002 

H8GWT 

0020 

WAITH 

4425 

NETWT 

0010 



NONRWT 

4000 



NT ASKS 

0023 



osfill 

0004 



08FL0S 

0002 



OSKBOV 

0030 



0SSY3D 

0010 



OSTTOV 

0031 



OSS 

0023 



0S8F 

0020 



PARTBL 

1420 






ERRORS DETECTEOt • 
LINKS GENERATED! • 


323 


AC0002 

112# 



AC2000 

111# 



AC3777 

110# 



AC4000 

109# 



AC7773 

108# 

263 


AC7776 

107# 



AO 

135# 



blkarg 

130# 



CAL 

116# 

275 

294 

CHECKR 

54# 



clad 

321# 

326 


clen 

330# 

332 


CLKQLN 

95# 



clktyp 

94# 

311 

312 

CLLR 

320# 

323 


CLOCK 

63# 

93 

309 

CLZE 

315# 

317 


cohman 

160# 



cs 

138# 



C8A 

74# 



C8AP 

75# 



CT 

136# 



CTR 

255# 

345 

346 

CUR 

175 

175 

246# 

DATE 

166# 



OERAIL 

129# 

361 


0F32 

73# 

387 

366 

ONEWT 

149# 



DPGO 

336# 

339 


O'PSM 

337# 

340 


DRLADR 

356 

362# 


OTA 

69# 

375 

376 

EAE 

50# 



EF*T 

141# 

366 


ENABWT 

146# 



EORNWT 

144# 

271 

366 

FREE 

133# 



GETMSG 

267 

274# 


HERTZ 

97# 

310 


HGHFLD 

52# 



ICS 

76# 



INI NT 

179 

247# 


LPT 

66# 

391 

392 

LTA 

66# 



maddr 

277# 

264 

290 

MCR 

67# 

90 


MCREF 

167# 



MCRSVS 

91# 



MEFCDf 

282 

296# 


HEPPTR 

279# 

265 

286 

MSGCDF 

260# 

261 


msgtbl 

152# 

153 

172 

MSGWT 

147# 



NETWT 

146# 



NT ASKS 

53# 

76 

153 

OSFILL 

66# 



osflds 

64# 



OSKBOV 

65# 



OSSYSD 

67# 




360 364 

314 329 335 

339 363 367 371 

230 269 291 302 


293 

265 

155 156 159 366 373 374 


324 





OSTTDV 

060 

300 



OSS 

70# 

03 

300 


0S8F 

790 




PARTSL 

1390 




PARTNS 

590 




PDP12 

490 




PDP8E 

400 




PFLTBL 

200 

349 

3740 

376 

POST 

1270 

293 



POSTDS 

1170 




POWRUP 

264 

3000 



PTR 

2340 

209 

292 

330 

pwflef 

2360 

296 

230 

262 

PWFLLP 

2604 

272 

297 

370 

PWRF 

640 

243 



PWRFAL 

310 




PWRUPE 

336 

3630 



PWRUPL 

3400 

372 



PWRUPN 

353 

3670 



RECEIV 

1290 

276 



RESTBL 

1300 

139 



RFS8 

720 

303 

304 


RKS 

710 

07 

102 

379 

RUN 

123# 




RUNWT 

1420 




RX8A 

770 




SEND 

1220 




SENDW 

1310 




SHERTZ 

900 

310 

313 


SKPINS 

1200 




START 

176 

2330 



SUNIT 

1030 




SUSPND 

1260 




SWAPPE 

700 

101 

137 

139 

8WPWT 

1430 




SYS 

1020 




TASK 

172 

174 

170 

2430 

TPTABL 

1530 

150 

170 


TICKS 

310 

3130 

325 


TODH 

1650 




TOOL 

1640 




TSTABL 

1530 

155 

174 


TSWFLG 

1630 




TTY 

630 

307 



UDC 

135 




UNBARG 

1320 

365 



userwt 

1450 




WAITE 

1240 




WAITM 

1100 

270 



^10372 

368 




110373 

288 

349 



^10374 

287 




110375 

265 




110376 

257 

300 



j.10377 

255 





310 304 300 310 


331 

301 


300 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 
It 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 
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/ 
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/ 
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/ 
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/ 
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/ 
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/THE INFORMATION IN THIS OOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
/AND SHOULD NOT OE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
/CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT, 

/ 

/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL, 

/ 

/DIGITAL E0UIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIEO BY 
/OIGITAL. 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 
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/PARAMETERS POR RTS-8 TASKS 


(VERSION PALS-V9D 09/11/75 PACE 2 


45 

46 

47 
46 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 


• 001 
0000 
0001 
0001 
0030 
0023 
0001 
0000 


/RTSS V2 EXEC PARAMETERS • EDITED BY USER 

PDPSEpI 

PDP12-0 

EAE"l 

PHRPALRl 

MCHPLDiSB 

NTASK3"23 

CHECKPT"! 

PARTNS«0 


/(THE N PARTITIONS ARE NUMBERED PROM 0 TO N«l) 


/COMMON TASK NUMBERS • EDITED BY USER 
/IT IS ADVISABLE TO DEFINE ALL TASKS HERE, 


NAMES GIVEN BELOW 


61 


/LIST IF THE CORRESPO 

62 



63 

0001 

CLOCK*1 

64 

0002 

PWRF"2 

65 

0003 

TTY"3 

66 

0004 

LPT"4 

67 

0005 

MCR-5 

68 

0006 

LTA"6 

69 

0007 

DTA-7 

70 

0021 

3WAPPER"21 

71 

0010 

RKB"10 

72 

0011 

RPS6"11 

73 

0012 

0F32"12 

74 

0013 

CSA-13 

75 

0014 

C8AF«14 

76 

0016 

ICS"16 

77 

0017 

RX8A" 17 

78 

0023 

0SS"NTA3K8 

79 

0020 

0S8F"20 

80 



81 


/SOFTWARE PARAMETERS < 

82 



83 


IFDEF OSS 

84 

0002 

03FL03"2 

85 

0030 

O3KBOV"30 

86 

0031 

0STTDV"31 

87 

0010 

OSSYSDaRKS 

88 

0004 

0SFILL"4 

89 


> 

90 


IFDEF MCR 

91 

0001 

MCR3Y8"1 

92 


> 

93 


IFDEF CLOCK 

94 

0000 

CLKTYP"0 

95 

0020 

CLKQLN"20 

96 


DECIMAL 

97 

0170 

HERTZ"120 

98 

0074 

SHERTZ-60 


EDITED BY USER 


OCTAL 
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/PARAMETERS FOR RTS-S TASKS (VERSION PAL6«V9D 69/11/75 PACE 2*1 

100 > 

1 0 1 IFDEF SWAPPER « 

102 0010 SY3"RK8 

103 0000 SUNIT«0 

104 > 
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/PARAMETERS FOR RTS*8 TASKS 


PACE 3 


105 

106 
107 
10S 

109 

110 
111 
112 

113 

114 

115 

116 
117 
116 

119 

120 
121 
122 

123 

124 

125 

126 
127 
126 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 


7344 

7346 

7330 

7350 

7332 

7326 


4020 

5424 

4425 


0000 

0001 

0002 

0003 

0004 

0005 

0006 

0007 

0010 

0011 

0012 

4000 


(VERSION PALS-V9D 09/11/75 
/EQUIVALENCES! 


AC7776- CLL 8TA RAl 
AC7775- CLL 8TA RTL 
AC4000P CLA STL RAR 
AC3777- CLL STA RAR 
AC2000- CLA STL RTR 
AC0002- CLA STL RTL 


/MONITOR CALL VALUES! 


CAL- 

JMS 

20 

P03TDS- JMP I 

24 

WAITM- 

JMS I 

25 


/CALL THE EXECUTIVE 
/DISMISS AN INTERRUPT 
/WAIT FOR MULTIPLE EVENTS 


8END- 

0 

RECEIV- 

1 

WAITE- 

2 

RUNp 

3 

8USPN0- 

4 

POST- 

5 

8KPINS- 

6 

DERAIL* 

7 

BLKARG- 

10 

SENDW- 

11 

UNBARG- 

12 

FREE- 

4000 


/NOTE! "*-" MEANS CRITICAL VALUE MAY NOT 

/BE CHANCED WITHOUT MODIFYING SYSTEM CODEU 

/SEND MESSAGE 

/RECEIVE MESSAGE 

/WAIT FOR EVENT FLAG 

/CONTINUE TASK EXECUTION 

/SUSPEND TASK EXECUTION 

/POST AN EVENT FLAG 

/INSERT CODE INTO INTERRUPT SKIP CHAIN 
/INITIATE END-ACTION 

/BLOCK TASK FOR REASON SPECIFIED IN ARC 
/SEND MESSAGE ANO WAIT 

/UNBLOCK TASK FOR REASON SPECIFIED IN ARG 
/••FREE PARTITION 


IFDEF UOC «AO*0jDO*llDI-2jGC-3/EC*4jRC-5 

DC»4lECT*7fCSPl0|DCTPli»AlPl2> 


/TASK STATUS FLAGS! 


4000 

NONRWT- 

4000 

/--NONRESIDENT TASK WAIT 

2000 

EFWT- 

2000 

/EVENT FLAG WAIT 

1000 

RUNWT- 

1000 

/schedule wait 

0400 

SWPWT- 

0400 

/--SWAPPER WAIT 

0200 

EORMWT- 

0200 

/EVENT FLAG OR MESSAGE WAIT 

0100 

U3ERWT- 

0100 

/USER SPECIFIED WAIT 

0040 

ENABWT- 

0040 

/ENABLE WAIT 

0020 

MSGWT- 

0020 

/MESSAGE WAIT 

0010 

NETWT- 

0010 

/NETWORK WAIT (RESERVED FOR 

0001 

DNEWT- 

0001 

/--DOES NOT EXIST WAIT 
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/PARAMETERS FDR RTS-8 TASKS (VERSION PAL8-V9D 09/11/75 PAGE 4 


150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 


/SYSTEM LOCATIONS! 


1176 

1244 

1367 


1414 

1420 

0043 


MSGTBL- 1200-2 

T3TABL- NTASKS»2*2*MSGTBL-4 

TFTABL- NTASKS*2*44TSTABL-1 


/TASK MESSAGE TABLE 
/TASK STATE TABLE • HOLDS 
/TASK LINK,UM,OF,IF,PC,AC,MQ 
/TASK FLAGS TABLE • HOLDS 
/TASK STATUS FLAGS 

/RESIDENCY TABLE 
/PARTITION TABLE 
/SWAPPER COMMAND BUFFER 


IFDEF SWAPPER « 

RE3TBL- TFTABL-NTASKS-2 
PARTBL- NTASK3-SWAPPER* , 2-RESTBL-347774 
COMMAND-43 


0035 

TSWFLG- 

35 

0036 

TOOL- 

36 

0037 

TODH- 

37 

0040 

DATE- 

40 

0041 

MCREF- 

41 


/TASK SW INHIBIT FLAG IN FIELD 0 
/LOW OROER TIME OF DAY IN FIELD 0 
/HIGH ORDER TIME OF DAY IN FIELD 0 
/DATE IN OSS FORMAT IN FIELO 0 
/MCR START EVENT FLAG IN FIELO 0 
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* i 


/PARAMETERS FOR RTS-8 TASKS 


(VERSION PAL8«V9D 09/11/75 PAGE 5 


169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 


/TASK TABLE SETUP • "TASK", "CUP"*"INIWT" 
/MUST BE OEFINEO BY TASKI 


ANO "START" 



1206 

*TASK"2tMSGTBL 

01206 

0000 

Z0LOCK 2 


1264 

*TA8K*«*TSTABL 

01264 

0011 

CURX10+CUR 

01265 

4400 

START 

01266 

0000 

0 


1373 

*T ASK + TFTABL 

01373 

0000 

INIWT 


/MESSAGE BUFFER INITIALLY CLEAR 
/INITIAL FLAGS 
/INITIAL AC 0 
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/LPT DRIVER TASK FOR RTS8 V2 


180 

181 

182 

163 

184 

185 

186 
187 
186 

189 

190 

191 

192 

193 
1 94 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 
207 
206 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 
223 


PAL8*V9D 09/11/75 PAGE 6 


/LPT DRIVER TASK FOR RTS8 V2 8/30/74 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT CC) 1974,1975 BY DIGITAL EQUIPMENT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/Iwn 00CUMCNT IS SUBJECT TO CHANGE WITHOUT NOTICE 

/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

2-A D «°i GlTAL E0UIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 

/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIEO 
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIOED IN WRITING BY DIGITAL. 

??« P S!£I I 0 V SSUMES N0 RESPONSIBILITY p OR THE USE 

'2? "! LI * BILXTY 0F ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
/DIGITAL. 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 
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/LPT ORIVER TASK FOR RTSS V2 


PALS-V9D 09/11/75 PACE 7 


224 



/HANDLES LE8, LS8E, LV8 

225 



/INPUT 

MESSAGE 

FORMAT I! 

226 






227 



/TASK 1 

DATA BLOCK! 

228 


0004 

TASK- 

LPT 


229 


0010 

CUR* 

10 


230 


0000 

INIWT* 

0 


231 






232 


6661 

LSF- 

6661 


233 


6662 

LCF- 

6662 


234 


6663 

LSE- 

6663 

/ERROR ! 

235 


6665 

LIE- 

6665 


236 


6666 

LLS- 

6666 


237 

238 


6667 

LIF- 

6667 

/DISABLI 

239 


0001 


FIELD CURX10 

240 


4400 


-4400 


241 



MEVPLG 

t 


242 

14400 

4020 

START, 

CAL 


243 

14401 

0006 

FLAGS, 

SKPINS 


244 

14402 

4544 

half, 

LPINT 


245 

14403 

1306 

LPMSLP 

, TAD 

ASGNEE 

246 

14404 

4020 


CAL 


247 

14405 

0001 


RECEIV 


248 

14406 

0000 

HAOOR, 

0 


249 

14407 

3362 


DCA 

M8GCDF 

250 

14410 

7346 


AC7775 


251 

14411 

1206 


TAD 

MAODR 

252 

14412 

3200 


OCA 

mevflg 

253 

144 IS 

4361 


JMS 

CDPMSG 

254 

14414 

1606 


TAD I 

MADDR 

255 

14415 

3201 


DCA 

FLAGS 

256 

14416 

2206 


ISZ 

MADDR 

257 

14417 

2206 


ISZ 

MAODR 

258 

14420 

1201 


TAD 

FLAGS 

259 

14421 

0377 


AND 

(200 

260 

14422 

7640 


SZA CLA 


261 

14423 

5302 


JMP 

ASSIGN 

262 

14424 

1201 


TAD 

FLAGS 

263 

14425 

7006 


RTL 


264 

14426 

7700 


8MA CLA 


265 

14427 

5232 


JMP 

.♦3 

266 

14430 

1606 


TAD I 

MADOR 

267 

14431 

3206 


DCA 

MAODR 

268 

14432 

7240 


STA 


269 

14433 

3202 


DCA 

half 


/DISABLE INTERRUPT • LEB ONLY 


/GET ASIGNEE (IP ANY) 


/TAKE THE MESSAGE OPP THE Q 
/GETS ADDRESS OP MESSAGE 
/PIEID OP MSG IN AC 


/SAVE MESSAGE EVENT PLAG ADDRESS 

/PIRST WORD OP MESSAGE IS PLAG8 
/SKIP REPLY WORD 

/BIT 200 ON MEANS THIS IS AN ASSIGN CALL 


/BIT 1000 OP PLAG WORD INDICATES 
/IP MESSAGE OR POINTER TO IT POLLOWS 


/INITIALIZE LEFT/RIGHT SWITCH 


/LPT 

DRIVER 

TASK FOR RTS8 

V2 


1 

270 



/LOOP 

TO UNPACK 

AND OU 

271 







272 

14434 

4361 

LPOLP, 

JMS 


CDFMSG 

273 

14435 

1201 


TAO 


FLAGS 

274 

14436 

7710 


SPA 

CLA 


275 

14437 

5263 


JMP 


ONEPWD 

276 

14440 

2202 


ISZ 


half 

277 

14441 

5251 


JMP 


RGHTHF 

278 

14442 

7344 


AC7776 


279 

14443 

3202 


DCA 


half 

280 

14444 

1606 


TAD 

I 

MADOR 

281 

14445 

7112 


CLL 

RTR 


282 

14446 

7012 


RTR 



283 

14447 

7012 


RTR 



284 

14450 

5253 


JMP 


.♦3 

285 

14451 

1606 

RGHTHF 

, tad 

I 

MAODR 

286 

14452 

2206 


ISZ 


MAODR 

287 

14453 

0376 


AND 


(77 

288 

14454 

7450 


SNA 



289 

14455 

5267 


JMP 


CKCRLF 

290 

14456 

1375 


TAO 


(240 

291 

14457 

0376 


AND 


(77 

292 

14460 

1375 


TAO 


(240 

293 

14461 

4315 

OUTCH, 

JMS 


LPOUT 

294 

14462 

5234 


JMP 


LPOLP 

295 







296 

14463 

1606 

ONEPWD 

, TAD 

I 

MADOR 

297 

14464 

2206 


ISZ 


MAOOR 

298 

14465 

7440 


SZA 



299 

14466 

5261 


JMP 


OUTCH 

300 

14467 

1201 

CKCRLF 

, TAO 


FLAGS 

301 

14470 

7004 


RAL 



302 

14471 

7700 


SMA 

CLA 


303 

14472 

4307 


JMS 


CRLF 

304 

14473 

1362 

LPOVER 

, TAD 


MSGCDF 

305 

14474 

3300 


DCA 


MF 

306 

1 4475 

1200 


TAO 


MEVFLG 

307 

14476 

4020 


CAL 



308 

14477 

0005 


POST 



309 

14500 

0000 

MF, 

0 



310 

14501 

5203 


JMP 


LPMSLP 

311 







312 

14502 

1201 

ASSIGN 

, TAD 


FLAGS 

313 

14503 

0376 


ANO 


(77 

314 

14504 

3306 


DCA 


ASGNEE 

315 

14505 

5273 


JMP 


LPOVER 

316 







317 

14506 

0000 

ASGNEE 

i 0 
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/BIT 0 IF FLAG WO TELLS WHETHER 
/MESSAGE IS PACKED OR UNPACKED ASCII 


/BIT 1 OP FLAGS TELLS WHETHER 
/TO FOLLOW MESSAGE BY A CR/LF 

/GET CDF TO MESSAGE FIELD 

/POST EVENT FLAG FOR SENDER 

/GET TASK TO BE ASSIGNED TO 
/POST ASSIGNMENT EVENT FLAG 
/TASK ASSIGNMENT • 0 MEANS UNASSIGNED 


334 



/LPT DRIVER TASK FOR RTSS V2 


PAL8W9D 09/11/75 PAGE 9 


318 



/LOW»LEVEL LPT 1 

OUTPUT 1 

319 






320 

14507 

0000 

CRLF i 

0 


321 

14510 

1374 


TAO 

(215 

322 

14511 

4315 


JM3 

LPOUT 

323 

14512 

1373 


TAO 

(212 

324 

14513 

4315 


JMS 

LPOUT 

325 

14514 

5707 


JMP I 

crlf 

326 






327 

14515 

0000 

LPOUT, 

0 


328 

14516 

3361 


DCA 

CDFMSG 

329 

14517 

1360 


TAD 

LPOEV 

330 

14520 

7650 


SNA CLA 


331 

14521 

5330 


JMP 

LPREDY 

332 

14522 

7201 


CLA IAC 


333 

14523 

6665 


LIE 


334 

14524 

7200 


CLA 


335 

14525 

4020 


CAL 


336 

14526 

0002 


WAITE 


337 

14527 

4560 

PLPOEV, 

LPOEV 


338 

14530 

1361 

lpredy, 

TAD 

CDFMSG 

339 

14531 

6002 


IOF 


340 

14532 

6666 


LLS 


341 

14533 

7200 


CLA 


342 

14534 

0400 


AND I 

0 

343 

14535 

2360 


ISZ 

LPOEV 

344 

14536 

6661 


LSF 


345 

14537 

5342 


JMP 

.♦3 

346 

14540 

6662 


LCF 


347 

14541 

3360 


DCA 

LPOEV 

348 

14542 

6001 


ION 


349 

14543 

5715 


JMP I 

LPOUT 

350 






351 

14544 

0000 

LPINT, 

010 


352 

14545 

0000 




353 

14546 

6663 


LSE 


354 

14547 

7410 


SKP 


355 

14550 

6667 


LIF 


356 

14551 

6661 


LSF 


357 

14552 

5744 


JMP I 

LPINT 

356 

14553 

6211 


CDF CUR 


359 

14554 

6202 


CIF 0 


360 

14555 

6662 


LCF 


361 

14556 

1327 


TAD 

PLPOEV 

362 

14557 

5424 


POSTDS 


363 






364 

14560 

0000 

LPOEV , 

0 


365 






366 

14561 

0000 

CDFMSG, 

0 


367 

14562 

7402 

MSGCDF, 

HLT 


368 

14563 

5761 


JMP I 

CDFMSG 

369 

14573 

0212 




370 

14574 

0215 




371 

14575 

0240 




372 

14576 

0077 





/EVENT FLAG POSTED? 

/YES • SKIP SOME OVERHEAD 

/ENABLE LINE PRINTER INTERRUPTS 
/JUST IN CASE 

/WAIT FOR LAST CHAR TO FINISH 
/INHIBIT INTERRUPTS 
/WASTE SOME TIME 
/TEST FOR IMMEDIATE FLAG 


/RESTORE INTERRUPTS 

/YES • DON'T BOTHER WITH EVENT FLAG 

/USED FOR LINKING INTO SKIP CHAIN 

/CHECK FOR LPT POWER LOW 
/NO 

/YES - DISABLE INTERRUPTS 


/POST "LPT COMPLETE" EVENT FLAG 


335 



/LPT DRIVER TASK FOR RTSS V2 

373 14577 0200 

374 4600 PAGE 

375 SSSS 


PAL8-V9D 09/11/75 


PAGE 9»1 




336 



09/11 /7f> 


PAGE 10 


TASK FOH RTSS V2 


/LPT DRIVER 

AC0002 

7326 

AC2000 

7332 

AC3777 

7350 

AC4000 

7330 

AC7775 

7346 

AC7776 

7344 

ASGNEE 

4506 

ASSIGN 

4502 

blkarg 

0010 

CAL 

4020 

COFMSG 

4561 

checkp 

0001 

CKCRLF 

4467 

CLKQLN 

0020 

clktyp 

0000 

CLOCK 

0001 

comman 

0043 

CRLF 

4507 

CS A 

0013 

CSAF 

0014 

CUR 

0010 

OATE 

0040 

DERAIL 

0007 

DF32 

0012 

DNEWT 

0001 

OTA 

0007 

EAE 

0001 

EFWT 

2000 

ENABWT 

0040 

EORMWT 

0200 

flags 

4401 

free 

4000 

half 

4402 

HERTZ 

0170 

hghfld 

0030 

ICS 

0016 

INIWT 

0000 

LCF 

6662 

LIE 

6665 

LIF 

6667 

LLS 

6666 

LPINT 

4544 

LPMSLP 

4403 

LPOEV 

4560 

LPOLP 

4434 

LPOUT 

4515 

LPOVER 

4473 

LPREOY 

4530 

LPT 

0004 

LSE 

6663 

LSF 

6661 

L T A 

0006 

MADOR 

4406 

MCR 

0005 

mcref 

0041 


MCRSYS 0001 
HEVFLG 4400 
MF 4500 
HSGCDF 4562 
MSGTBL 1176 
MSGWT 0020 
NETWT 0010 
NONRWT 4000 
NTASKS 0023 
ONEPWD 4463 
OSFItL 0004 
OSFLDS 0002 
OSKBOV 0030 
OSSYSO 0010 
OSTTOV 0031 
OSB 0023 
0S8F 0020 
OUTCH 4461 
PARTBl 1420 
PARTNS 0000 
POP 12 0000 
POPSE 0001 
PLPOEV 4527 
POST 0005 
POSTDS 5424 
PWRF 0002 
PWRFAL 0001 
RECE1V 0001 
RESTBL 1414 
RF08 0011 
RGHTHF 4451 
RK8 0010 
RUN 0003 
RUNWT 1000 
Rx8A 0017 
SEND 0000 
SENOW 0011 
SHERTZ 0074 
SKPINS 0006 
START 4400 
SUNXT 0000 
SUSPND 0004 
SnAppE 0021 
SWPWT 0400 
SYS 0010 

task 0004 
TFTABL 1367 
TOOH 0037 
TOOL 0036 
TSTABL 1244 
TSWFLG 0035 
TTY 0003 
UNBARG 0012 
USERWT 0100 
WAITE 0002 


PALS»V9D 
WAITM 4423 


337 


ERRORS DETECTEOI 0 
LINKS GENERATED: 0 


338 




AC0002 

112# 



AC2006 

111# 



AC3777 

110# 



AC4000 

109# 



AC7775 

106# 

250 


AC7776 

107# 

276 


AQ 

135# 



asgnee 

245 

314 

317# 

ASSIGN 

261 

312# 


blkarg 

130# 



CAL 

116# 

242 

246 

CDFMSG 

253 

272 

326 

checkp 

54# 



CKCRLF 

269 

300# 


CLKQLN 

95# 



CLKTTP 

94# 



CLOCK 

63# 

93 


COMMAN 

160# 



CRLF 

303 

320# 

325 

CS 

136# 



CSA 

74# 



CS AF 

75# 



CT 

136# 



CUR 

175 

175 

229# 

DATE 

166# 



DERAIL 

129# 



DF32 

73# 



ONEWT 

149# 



OTA 

69# 



EAE 

50# 



EFHT 

141# 



ENABWT 

146# 



EORMWT 

144# 



flags 

243# 

255 

258 

FREE 

133# 



HALF 

244# 

269 

276 

HERTZ 

97# 



hghfld 

52# 



ICS 

76# 



INIWT 

179 

230# 


LCF 

233# 

346 

360 

LIE 

235# 

333 


LIF 

237# 

355 


LLS 

236# 

340 


LPINT 

244 

351# 

357 

LPMSLP 

245# 

310 


LPOEV 

329 

337 

343 

LPOLP 

272# 

294 


LPOUT 

293 

322 

324 

LPOVER 

304# 

315 


lpreoy 

331 

338# 


LPT 

66# 

226 


LSE 

234# 

353 


LSF 

232# 

344 

356 

LTA 

68# 



MAOOR 

248# 

251 

254 


296 

297 


mcr 

67# 

90 


hcref 

167# 




317 333 

338 386# 366 


236 356 


262 273 360 312 

279 


347 364# 

327# 349 


256 237 266 267 260 


265 


266 


339 


MCRSYS 

91# 



MEVFLG 

241# 

252 

306 

HF 

305 

309# 


MSGCDF 

249 

304 

367* 

MSGTBL 

152# 

153 

172 

MSGWT 

147# 



NETwT 

148# 



NT ASKS 

53# 

78 

153 

ONEPrtD 

275 

296# 


osfill 

86# 



OSFLOS 

84# 



OSK0OV 

85# 



OSSVSD 

87# 



OSTTOV 

66# 



OSS 

76# 

63 


0S8F 

79# 



OUTCH 

293# 

299 


PARTBL 

159# 



PARTNS 

55# 



POP 12 

49# 



PDP8E 

48# 



plpoev 

337# 

361 


POST 

127# 

306 


P0STD8 

117# 

362 


PWKP 

64# 



PWRFAL 

51# 



RECEIV 

123# 

247 


RESTBL 

156# 

159 


RF08 

72# 



RGHTHF 

277 

285# 


RK8 

71# 

67 

102 

RUN 

125# 



RUNWT 

142# 



RX8A 

77# 



SEND 

122# 



SENOW 

131# 



SHERTZ 

98# 



SKPINS 

126# 

243 


START 

176 

242# 


SUNIT 

103# 



SUSPNO 

126# 



SWAPPE 

70# 

101 

157 

SWPWT 

143# 



SYS 

102# 



TASK 

172 

174 

178 

TF TABl 

155# 

156 

178 

TOOm 

165# 



TOOL 

lb4# 



tstabl 

153# 

155 

174 

tshflg 

163# 



TTY 

65# 



UOC 

135 



UN3ARG 

132# 



USFRWT 

145# 



WAITE 

124# 

336 


WAITH 

118# 



x 145 7 3 

323 



J 457« 

321 



..14575 

290 

292 


A i«576 

287 

291 

313 


155 


159 

226# 


158 


159 


340 



* 




A 14577 

V3 


259 
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(VERSION PAL8»V9D 09/11/75 PACE 1 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 
18 

17 

18 
19 
2P 
21 
2? 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 


(VERSION 2) 


/PARAMETERS FOR RTSi-8 TASKS 
/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT (C) 1974,1975 BY DIGITAL EQUIPMENT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/Ino DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 

yJnD B no?TtS N0T BE CONSTRUED AS a COMMITMENT BY DIGITAL EQUIPMENT 

I AL £QUIPMCNT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT, 

/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
/NOTICE) ONLY FOR “ SSeS 
/SYSTEM, EXCEPT *S m»y OTHERWISE SE PROYIDEO IN WRITING By DIGIT*!., 

f!rSIfI ,0N <MU " ES NO RESPONSIBILITY FOR THE USE 
/DIGITAL BILITV 0F 1TS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 
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/parameters for RTS-6 tasks 


(VERSION PAL6-V9D 09/11/75 PACE 2 


45 

46 

47 
46 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 


/RT36 V2 EXEC PARAMETERS • EDITED BY USER 

0001 PDP6E-1 
0000 PDP12-0 

0001 EAE-t 
0001 PwRFAL-l 
0030 HGHFLO-30 
0023 NTASK3-23 
0001 CHECKPT-i 
0000 PARTNS-0 

/(THE N PARTITIONS ARE NUMBEREO FROM 0 TO N*l) 
/COMMON TASK NUMBERS • EDITED BY USER 

/IT IS AOVISABLE TO DEFINE ALL TASKS HERE, NAMES GIVEN BELOW 
/ARE USED BY SOME SYSTEM TASKS AND SHOULO BE OEIETED FROM THIS 
/LIST IF THE CORRESPONDING TASK IS NOT INCLUDED IN THE SYSTEM 

0001 CLOCK-1 
0002 PWRF-2 
0003 TTY-3 
0004 LPT-4 
0005 MCR-5 
0006 LTA-6 
0007 DTA-7 
0021 SWAPPER-21 
0010 RK8-10 

0011 RF08-11 

0012 DF32-12 

0013 CSA-13 
0014 CSAF-14 
0016 ICS-16 
0017 RX8A-17 

•023 0S6-NTASKS 
0020 OS6F-20 

/SOFTWARE PARAMETERS • EDITED BY USER 



IFDEF 

OSS 

< 

0002 

OSFLDS-2 



0030 

OSKBDV-30 



0031 

OSTTDV-31 



0010 

0SSYSD-RK8 



• 004 

0SFILL-4 




IFDEF 

MCR 

< 

0001 

MCRSYS-1 




IFDEF 

CLOCK 

« 

0000 

CLKTYP-0 



0020 

CLKQLN-20 




DECIMAL 



0170 

HERTZ-120 



0074 

SHERTZ-60 




OCTAL 
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/PARAMETERS FOR RTS-8 TASKS (VERSION PAL8-V9D §9/11/75 PAGE 2«1 

100 > 

101 IFDEF SWAPPER « 

102 0010 SYS-RK8 

103 0000 SUNIT-0 

104 > 
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/PARAMETERS FOR RTS*8 TASKS (VERSION PAL8*V90 09/11/75 PAGE S 


105 


/EQUIVALENCES! 


106 





107 

7344 

AC7776* 

CLL STA 

RAL 

108 

7346 

AC7775* 

CLL STA 

RTL 

109 

7330 

AC400M 

CLA STL 

RAR 

110 

7350 

AC3777* 

CLL STA 

RAR 

111 

7332 

AC2000* 

CLA STL 

RTR 

112 

113 

114 

115 

116 

7326 

AC0002* 

CLA STL 

RTL 


/MONITOR CALL VALUESl 

4020 

CAL* 

JMS 

20 /CALL THE EXECUTIVE 

117 

5424 

P03TD3* 

JMP I 

24 /0X8MX3S AN INTERRUPT 

118 

4425 

WAITM* 

JMS I 

25 /WAIT FOR MULTIPLE EVENTS 

119 





120 




/NOTE! "•*" MEANS CRITICAL VALUE MAY NOT 

121 




/BE CHANGED WITHOUT MODXFYXNG SYSTEM CODE 1 

122 

0000 

SEND* 

0 

/SEND MESSAGE 

123 

0001 

RECEIV* 

1 

/RECEIVE MESSAGE 

124 

0002 

WAITE* 

2 

/WAIT FOR EVENT FLAG 

125 

0003 

RUN* 

3 

/CONTINUE TASK EXECUTION 

126 

0004 

SUSPND* 

4 

/SUSPEND TASK EXECUTION 

127 

0005 

POST* 

5 

/POST AN EVENT FLAG 

128 

0006 

SKPINS* 

6 

/INSERT CODE INTO INTERRUPT SKIP CHAIN 

129 

0007 

DERAIL* 

7 

/INITIATE ENO-ACTXON 

130 

0010 

BLKARG- 

10 

/BLOCK TASK FOR REASON SPECIFIED IN ARC 

131 

0011 

SENOW* 

11 

/SEND MESSAGE AND WAXT 

132 

0012 

UNBARG* 

12 

/UNBLOCK TASK FOR REASON SPECIFIED IN ARG 

133 

4000 

free* 

4000 

/**FREE PARTITION 

134 





135 



IFOEF UDC <AQ*0fDO*lfDI*2fGC*3|EC*4fRC*5 

136 




OC*6jECT*7|C3*10fDCT«llfAI*12> 

137 





138 


/TASK STATUS FLAGS! 

139 





140 

4000 

NONRWT* 

4000 

/•♦NONRESIDENT task wait 

141 

2000 

EFWT* 

2000 

/EVENT FLAG WAIT 

142 

1000 

RUNWT* 

1000 

/SCHEDULE WAIT 

143 

0400 

SWPWT* 

0400 

/••SWAPPER WAIT 

144 

0200 

eormwt* 

0200 

/EVENT FLAG OR MESSAGE WAIT 

145 

0100 

USERWT* 

0100 

/USER SPECIFIED WAIT 

146 

0040 

ENABWT* 

0040 

/ENABLE WAIT 

147 

0020 

MSGWT* 

0020 

/MESSAGE WAIT 

148 

0010 

NETWT* 

0010 

/NETWORK WAIT (RESERVED FOR POSSIBLE FUTUI 

149 

0001 

ONEWT* 

0001 

/••DOES NOT EXIST WAIT 
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150 

151 
153 

153 

154 

155 

156 


/SYSTEM LOCATIONS! 


1176 MSGTBL* 1200*2 

1244 TSTABL* NTASKS^2*2^MSGTBL*4 


1367 TFTABL* NTASKS+2*4+TSTABL*l 


/TASK MESSAGE TABLE 
/TASK STATE TABLE - HOLDS 
/TASK LINK,UM,DF,IF,PC f AC,MO 
/TASK FLAGS TABLE * HOLDS 
/TASK STATUS FLAGS 


157 


IFOEF 

SWAPPER < 


158 

1414 

RESTBL* TFTA8L*NTASK3*2 

/RESIDENCY TABLE 

159 

1420 

PARTBL* NT ASKS 

-SWAPPER*2*RESTBL^3S7774 

/PARTITION TABLE 

160 

0043 

C0MMAND*43 


/SWAPPER COMMAND 

161 


> 



162 





163 

0035 

TSWFLG* 35 

/TASK SW INHIBIT FLAG 

IN FIELD 0 

164 

0036 

TOOL* 36 

/LOW ORDER TIME OF DAY 

IN FIELD 0 

165 

0037 

TOOH« 37 

/HIGH ORDER TIME OF DAY 

IN FIELD 0 

166 

0040 

OATE* 40 

/OATE IN OSS FORMAT 

XN FIELD 0 

167 

0041 

MCREFb 41 

/MCR START EVENT FLAG 

IN FIELD 0 
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169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 


* " TASK "» "CUR","INIWT", AND "START" 
/MUST BE DEFINED BY TASKl 



1234 

*TASK*24MSGT6L 

01234 

0000 

ZBLOCK 2 


1340 

*TASK*4*TSTABL 

01340 

0011 

CURX10+CUR 

01341 

3200 

START 

01342 

0000 

0 


1406 

ATASKATFTABL 

01406 

0000 

INIWT 


/MESSAGE BUFFER INITIALLY CLEAR 
/INITIAL FLAGS 
/INITIAL AC • 
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180 

181 

182 

163 

I8fl 

185 

186 

187 

188 

189 

190 

191 

192 

193 
19a 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 
223 


/2 FLOPPY DISK HANDLER FOR RT3«S 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT (C) 1975 BY DIGITAL EQUIPMENT CORPORATION 

/ 

/ 

/ 


/ 

/ 

/ 

/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
/CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS OOCUMENT, 

/THE SOFTWARE DESCRIBED IN THIS OOCUMENT IS FURNISHED TO THE PURCHASER 
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL, 

/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
/DIGITAL, 
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/I FLOPPY DISK HANOLER POP RTS*6 


224 

225 
224 
227 

226 
226 
256 
251 
212 
235 
234 

255 

256 
237 
256 

239 

240 

241 

242 

243 

244 

245 

246 

247 
246 

249 

250 

251 

252 

253 

254 

255 

256 

257 
256 
259 
266 
261 
262 

263 

264 

265 

266 
267 
266 

269 

270 

271 

272 

273 

274 

275 

276 

277 
276 


/t 


RTS*6 PX61 HANDLE* 


0617 

6666 

6616 

5206 


XNXMTPl 

CUR*10 


LOC-3266 /LOAD AD0PES6 

IFNOCF RXDVCD «RXDVCD*7S0P 
SP 

MESSAGE FOPMATI 


/DEVICE CODE OF FLOPPY CONTROLLER 


/RXME8G, ZBLOCK 5 
/ C00E40EL6H0DE6UNXT 

/ PM4PASES4FXELD 

/ BUFADD 

/ BLOKNO 

/ STATUS 

/MOOEP 6 TRANSFER XN 12.8IT MODE 

/ 106 TRANSFER XN 8-SXT NODE 

/CODE* 6 IGNORE DEL ANO USE FADES S BLOKNO XN 08/B SENSE 

/ 4600 SPECIAL PHYSICAL SECTOR ACTION, IGNORE PAGES AND 

/ ASSUME BLOKNO HAS FORM TTTTTTTSBSSS 

/ SPECIFYING ABSOLUTE PHYSICAL TRACK ANO SECTOR NUMBER 

/DEL* B DON'T CONSIDER DELETEO OATA NARKS 

/ 2000 HANDLE OELE/DENERAL INFORMATION! 

/THERE ARE 126 BYTES PER SECTOR, 

/26 SECTORS PER TRACK NUMBER UBS DECIMAL (1*91 OCTAL) 

/77 TRACKS PER FLOPPY NUMBERED 0*76 DECIMAL (0*114 OCTAL) 

/IN 12*BIT MODE, THERE ARE 64 WOROS PER SECTOR (4 SECTORS PER OS/6 BLOCK) 
/IN 6.BIT MODE, THERE ARE IBS BYTES PER SECTOR (2 SECTORS PER OS/6 BLOCK) 

/3TANDAR0 RTS*6, 06/6 INTERLEAVE SCHEME ON FLOPPY IS AS FOLLOWS! 


/ 

/ 

/0 

/I 

/2 

/3 

/ 4 

/5 

/6 

n 

/e 

/9 


OS/6 

BLK 


LOGICAL PHYSICAL 
REC 6 TRACK f 


PHYSICAL 

SECTORS 


0*5 

4*7 

6*11 

12*15 

16*19 

26*25 

24*27 

26*31 

32*15 

56*39 


1 

1 

1 

1 

1 

1 

1/2 

2 

2 

2 


1,3,5,7 

9,11,13,15 

17,19,21,23 

25,2.4,4 

6,16,12,14 

14,16,20,22 

24,26/1,3 

5,7,9,11 

13,15,17,19 

21,23,25,2 


/2 FLOPPY 

DISK HANOLER FOR 

RTS*6 

PALS-V60 09/11/75 PAGE 7*1 

279 

/10 

40*43 2 

4,6,6,10 

260 

/ll 

44*47 2 

12,14,14,16 

261 

/12 

46*51 2 

26,22,24,26 

262 

/13 

52*55 3 

1,3,5,7 

283 

/... 

• • • 


284 

285 

/ALGORITHM TO CONVERT 

OS/6 BLOCK NUMBER TO PHYSICAL TRACK , 

266 

287 

/I. 

MULTIPLY OS/6 

BLOCK NUMBER, B, BY 4 TO GET INITIAL 

286 

/ 

RECORD NUMBER. 

(NEXT 3 LOGICAL RECORD NUMBERS ARE 

289 

290 

/*# 

DIVIDE LOGICAL 

. RECORO NUMBER BY 13 TO GET QUOTIENT 

291 

/ 

ANO REMAINDER 

R • 


292 

293 

294 
29b 

296 

297 


/3, DIVIDE QUOTIENT Q BY 2 TO GET NEW QUOTIENT T AND NEW REMAINDER S, 
/4, PHYSICAL TRACK NUMBER IS UT , 

/5, PHYSICAL SECTOR NUMBER IS 1*2*R*S , 





/2 FLOPPY DISK HANDLER FOR RTB-B 
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* « 


298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 


/FORMAT OF RX0E COMMAND REGISTER I 


/BITS 0-3 

/BIT 4 
/BIT 5 
/BIT 6 
/BIT 7 
/BITS 8-10 
/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/BIT 11 


UNUSED 
MAINTENANCE 

MODE BIT (1 MEANS S-BIT MODE# • MEANS 12-BIT MODE) 

UNUSED 

DRIVE 

FUNCTION 

000 FILL BUFFER 

B01 EMPTY BUFFER 

010 WRITE SECTOR 

011 READ SECTOR 

100 UNUSED 

101 READ STATUS 

110 WRITE DELETED DATA SECTOR 

111 MAINTENANCE 
UNUSED 


/FORMAT OF RX8E STATUS WORDl 


/BITS 0-3 
/BIT 4 
/BIT 5 
/BITS 6-7 
/BIT 8 
/BIT 9 
/BIT 10 
/BIT 11 


UNUSED 

SELECTED DRIVE REAOY 
DELETED DATA INDICATION 
UNUSED 

UNUSED BUT RESERVED FOR FUTURE USE 
INIT DONE 
PARITY ERROR 
CRC ERROR 


/A FLOPPY CONTAINS 3722(8)-2002(10) SECTORS, 

/SINCE 26(10)-32 (8) ARE NOT USED BY OS/8# 

/THE HIGHEST LOGICAL RECORD * IS 1975(10)"3647 (B), 

/THUS THE LARGEST OS/8 BLOCK NUMBER IS 493 ( IB) *755 (8), 

/IN OTHER WORDS, A FLOPPY CONTAINS 494(10) OS/6 BLOCKS OF OATA, 
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331 


6751 

332 


6752 

333 


6753 

334 


6754 

335 


6755 

336 


6756 

337 


6757 

338 



339 


0001 

340 


3200 

341 



342 



343 

13200 

4020 

344 

13201 

0006 

345 



346 

13202 

3405 

347 

13203 

7201 

348 

13204 

6756 

349 

13205 

7200 

350 

13206 

4020 

351 

13207 

0001 

352 

13210 

0000 

353 

13211 

3341 

354 

13212 

7240 

355 

13213 

1210 

356 

13214 

3210 

357 

13215 

4340 

358 

13216 

3345 

359 

13217 

4340 

360 

13220 

3361 

361 

13221 

4340 

362 

13222 

3200 

363 

13223 

4340 

36a 

13224 

3346 

365 

13225 

6211 

366 

13226 

1346 

367 

13227 

7106 

368 

13230 

3203 

369 

13231 

1361 

370 

13232 

0377 

371 

13233 

1376 

372 

13234 

330« 

373 

13235 

1361 

374 

13236 

7004 

375 

13237 

0325 

376 

13240 

7041 

377 

13241 

3204 

378 

1 3242 

1345 

379 

13243 

0375 

380 

13244 

1374 

381 

13245 

3352 

382 

13246 

1345 

383 

13247 

7700 

384 

13250 

5265 

385 

13251 

1352 


LCDs 6001*RXDVCD 
XDRs 6002+RXDVCD 
STR* 6003+RXOVCD 
SER* 6004+RXDVCD 
SDN* 6005+RXDVCD 
INTR* 6006+RXDVCD 
INIT* 60074RXDVCD 

FIELD CURX10 
• LOC 

BUFFER, 

START, CAL 
DFLAG, SKPINS 

CMD, INTRPT 

REC, CLA I AC 
WC, INTR 

STATUS, CLA 
LOOP, CAL 

RECEIV 
MADQR, 0 

OCA MSGFLD 
STA 

TAD MADOR 
OCA MADDR 
JMS GET 
OCA FNCTN 
J MS GET 
DC A FN 
JMS GET 
OCA BUFFER 
JMS GET 
OCA BLOCK 
CDF CUR 
TAD BLOCK 
CLL RTL 
OCA REC 
TAD FN 
AND (70 
TAD (CDF 
DC A BUFCOF 
TAD FN 
RAL 

AND L7 600 
CIA 

OCA WC 
TAD FNCTN 
AND (100 
TAD (100-1 
DCA MSK 
TAO FNCTN 
SMA CLA 
J HP NOSPEC 
TAD HSK 


/LOAD COMMAND REGISTER 
/TRANSFER DATA REGISTER 

/SKIP ON TRANSFER REQUEST FLAG, CLEAR FLAG 
/SKIP ON ERROR FLAG, CLEAR FLAG 
/SKIP ON DONE FLAG, CLEAR FLAG 
/INTERRUPT ENABLE/DISABLE 

/INITIALIZE CONTROLLER AND RECALIBRATE DRIVES 


/BUFFER ADORESS 

/INSERT INTERRUPT SKIP IN SKIP CHAIN 
/ <0 WAITING, *0 FINISHED, >0 PENDING 
/FLOPPY IS INITIALLY BUSY 


/ENABLE INTERRUPTS 


/GET A MESSAGE 

/ADDRESS OF MESSAGE LEFT HERE 
/CDF TO FIELO OF MESSAGE LEFT IN AC 


/RESET MADDR TO POINT BACK TO PARAM BLOCK -1 
/GET UNIT AND SPECIAL FUNCTIONS BIT 

/GET FUNCTION WORD 

/GET BUFFER ADDRESS 

/GET BLOCK NUMBER 


/FIRST LOGICAL RECORD IS 4* OS/8 RECORD 

/ISOLATE FIELD OF BUFFER 

/STORE AWAY IN-LINE 

/MOVE # OF PAGES INTO AC 0-4 
/TURN PAGE COUNT INTO WORD COUNT 

/STORE NEGATIVE OF WORD COUNT 


/LOOK AT CODE BIT 
/NOTHING SPECIAL 
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388 

13252 

7040 


CMA 



387 

13253 

3204 


OCA 

NC 

/STORE REVISED NEGATIVE OF WORD COUNT 

388 

13254 

1346 


TAO 

block 


384 

13255 

0312 


AND 

L37 


390 

13256 

3773 


OCA 

I (SECTOR 


391 

13257 

1346 


TAD 

BLOCK 


392 

13260 

7012 


RTR 



393 

13261 

7012 


RTR 



394 

13262 

7010 


RAR 



395 

13263 

0372 


ANO 

(177 


398 

13264 

3771 


OCA 

I (TRACK 


397 

13265 

1361 

NOSPEC, 

TAO 

FN 

/GET RN BIT 

398 

13266 

7710 


SPA 

CLA 

/IF XT*S A REAO, WE MUST PRE-READ 

399 

13267 

5300 


JMP 

3TWRXT 

/OTHERWISE, START FILLING RX01 BUFFER 

400 

13270 

1204 

WORDLP, 

TAO 

wc 

/GET WORO COUNT 

401 

13271 

0352 


AND 

MSK 

/CHECK FOR MULTIPLE OF 64 (OR 128) WORDS 

402 

13272 

7640 


SEA 

CLA 

/AT SUCH A BOUNDARY, WE WANT TO DO I/O 

403 

13273 

5304 


JMP 

BUFCDF 

/OTHERWISE, JUST TRANSFER BETWEEN BUFFERS 

404 

13274 

4770 


JHS 

X (OXSKXO 

/READ OR WRITE A BUFFER 

405 

13275 

2203 


ISZ 

REC 

/BUMP RECORD NUMBER 

406 

13276 

1767 


TAD 

I (STATE 


407 

13277 

3205 


OCA 

STATUS 


408 

13300 

1361 

STWRIT, 

TAO 

FN 


409 

13301 

7004 


RAL 


/RW BIT TO LINK 

410 

13302 

7226 


CLA 

CML RTL 

/ACM IF READ, 0 IF WRITE 

411 

13303 

4347 


JHS 

LOCMO 

/ACM •«» FILL SECTOR BUFFER 

412 






/ACM —► EMPTY SECTOR BUFFER 

413 

13304 

7402 

BUFCDF, 

HLT 


/FIRST TIME THROUGH, DO COF TO FXELO OF BUFFER 

414 

13305 

1600 

tranwd, 

TAO 

X BUFFER 

/GET CONTENTS OF BUFFER IN CASE WRITING 

415 

13306 

4766 


JMS 

X (TRANS 

/TRANSFER A WORD BETWEEN CORE ANO RX01 BUFFER 

416 

13307 

3600 


OCA 

X BUFFER 

/STORE CONTENTS OF BUFFER XN CASE READING 

417 

13310 

6211 


COF 

CUR 


418 

13311 

2200 


ISZ 

BUFFER 

/BUMP BUFFER POINTER 

419 

13312 

0037 

137, 

37 


/IN CASE IT SKIPS 

420 

13313 

2204 


ISZ 

MC 

/BUMP WORD COUNT 

421 

13314 

5270 


JMP 

WORDLP 

/REITERATE 

422 

13315 

1361 


TAD 

FN 

/LOOK AT RW BIT AGAIN 

423 

13316 

7710 


SPA 

CLA 


424 

13317 

4770 


JMS 

I (OXSKXO 

/IF WRITING, DUMP LAST RECORD, 

425 

13320 

1345 


TAD 

FNCTN 


426 

13321 

7044 


CMA 

RAL 


427 

13322 

7730 


SZL 

SPA CLA 

/RETURN STATUS IF CODEM AND OEL«l 

428 

13323 

3205 

retrn, 

OCA 

STATUS 

/OTHERWISE ZERO STATUS 

429 

13324 

4340 


JMS 

GET 


430 

13325 

7600 

L7600, 

7600 

/CLA 

431 

13326 

1205 


TAO 

STATUS 


432 

13327 

3610 


OCA 

I MAOOR 


433 

13330 

1341 


TAO 

MSGFLD 


434 

13331 

3336 


OCA 

EFCOF 


435 

13332 

1210 


TAO 

MAOOR 


436 

13333 

1365 


TAO 

(•7 

/POINT TO MESSAGE EVENT FLAG 

437 

13334 

4020 


CAL 



438 

13335 

0005 


POST 

/POST EVENT FLAG POINTED TO BY AC 

439 

13336 

7402 

EFCDF, 

HLT 


/FIELD OF EVENT FLAG 

440 

13337 

5206 


JMP 

LOOP 

/GET ANOTHER MESSAGE 




/2 FLOPPY DISK HANOLER FOR RTS-8 
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441 

442 

443 

13340 

13341 

0000 

7402 

GET, 

MSGFLD, 

0 

HLT 



444 

13342 

2210 


ISZ 

MAOOR 

445 

13343 

1610 


TAO 

I 

MAOOR 

446 

447 

448 

13344 

13345 

13346 

5740 

0000 

0000 

FNCTN, 

block, 

JMP 

0 

0 

I 

GET 



/CHANGE OF TO FIELD OF MSG) GET NEXT ENTRY 


/CODE*DEL*MOOE*UNXT 
/BLOCK NUMBER 


554 



/2 FLOPPY DISK HANOLEP POP RTS-8 
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> t 


449 

13347 

0000 

LDCMD, 

0 


450 

13350 

3202 


DCA 

CMD 

451 

13351 

4764 


JMS 

I (OWAIT 

452 

13352 

• •77 

MSK, 

77 


453 






454 






455 

13353 

1202 


TAD 

CMD 

456 

13354 

6002 


IOF 


457 

13355 

6751 


LCO 


458 

13356 

2201 


ISZ 

DFLAG 

459 

13357 

6001 


ION 


460 

13360 

3747 


JMP 

I LOCMO 

461 






462 

13361 

0000 

FN, 

0 


463 

13364 

3345 




464 

13365 

7771 




465 

13366 

3400 




466 

13367 

3344 




467 

13370 

3420 




468 

13371 

3540 




469 

13372 

0177 




470 

13373 

3541 




471 

13374 

0077 




472 

13375 

0100 




473 

13376 

6201 




474 

13377 

0070 




475 


3400 


PAGE 


/WAIT FOR OONE FLAG AND LOAD COMMAND REGISTER 
/SAVE COMMANO 
/WAIT FOP OONE FLAG 

/77 IF 12-BIT MODE I 177 IF 8-BIT MODE 

/WE DON'T CAPE IF PREVIOUS OPERATION HAD AN ERROR 

/BECAUSE WE ARE NOW INITIATING A NEW OPERATION, 


/LOAD NEW COMMAND REGISTER CONTENTS 


/RW*PAGE3«F!ELD 


355 


/? FLOPPY DISK HANDLER FOR RTS-8 
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476 

13400 

0000 TRANS, 

0 

477 

13401 

6753 

8TR 

478 

13402 

5201 

JMP .-1 

479 

13403 

6752 

XOR 

480 

13404 

5600 

JMP I TRANS 


356 
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461 

13405 

0000 

INTRPT, 

ZBLOCK 2 

462 

13407 

6755 


SON 


483 

13410 

5605 


JMP 

I INTRPT 

464 

13411 

6211 


COF 

CUR 

485 

13412 

6752 


XOR 


486 

13413 

0377 


ANO 

(377 

487 

13414 

3344 


OCA 

STATE 

466 

13415 

1376 


TAD 

(OFLAG 

489 

13416 

6202 


CIF 

0 

490 

13417 

5424 


POSTDS 

491 






492 

13420 

0000 

DISK 10, 

0 


493 

13421 

1375 


TAD 

(•10 

494 

13422 

3334 


DCA 

TRYCNT 

495 

13423 

1774 

TRYAGN, 

TAO 

I (FNCTN 

496 

13424 

0373 


and 

(100 

497 

13425 

3342 


DCA 

MODBIT 

498 

13426 

1772 


TAD 

I (FN 

499 

13427 

7004 


RAL 


500 

13430 

7226 


CLA 

CML RTL 

501 

13431 

1371 


TAD 

(4 

502 

13432 

3343 


DCA 

fnbits 

503 

13433 

1774 


TAD 

I (FNCTN 

504 

13434 

7044 


CMA 

RAL 

505 

13435 

7720 


SMA 

SNL CLA 

506 

13436 

1772 


TAD 

I (FN 

507 

13437 

7700 


SMA 

CLA 

508 

13440 

5243 


JMP 

T2 

509 

13441 

1370 


TAO 

(14 

510 

13442 

3343 


DCA 

FNBITS 

511 

13443 

1774 

T2» 

TAD 

I (FNCTN 

512 

13444 

7010 


RAR 


513 

13445 

7206 


CLA 

RTL 

514 

13446 

7006 


RTL 


515 

13447 

7004 


RAL 


516 

13450 

1343 


TAD 

FNBITS 

517 

13451 

4767 


JMS 

I (LOCMD 

518 

13452 

1774 


TAO 

I (FNCTN 

519 

13453 

7710 


SPA 

CLA 

520 

13454 

5310 


JMP 

SPECL 

521 






522 



/ROUTINE TO 

DIVIOE N 

523 

13455 

1766 


TAD 

I (REC 

524 

13456 

3335 


OCA 

N 

525 

13457 

1365 


TAD 

(200*15 

526 

13460 

3336 


DCA 

D 

527 

13461 

3337 


OCA 

Q 

528 

13462 

1336 

DLOOP, 

TAO 

D 

529 

13463 

7141 


CLL 

CIA 

530 

13464 

1335 


TAD 

N 

531 

13465 

7420 


SNL 


532 

13466 

7610 


SKP 

CLA 

533 

13467 

3335 


DCA 

N 

534 

13470 

1337 


TAD 

Q 

535 

13471 

7004 


RAL 



/RTS OVERHEAO 

/SKIP ON DONE AND CLEAR FLAG 
/IT AINT THIS FLAG 

/READ STATUS 

/12-BIT MODE LEAVES GARBAGE IN AC 0*3 


/READ OR WRITE RECORO 
/RETRY 8 TIMES 


/RW BIT TO LINK 


/DOING A WRITE IN SPECIAL MOOE WITH DEL SET 


/UNIT TO LINK 


/UNIT TO BIT 7 


/ALREADY HAVE SECTOR ANO TRACK 


Q AND REMAINDER IN N, 


357 
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536 

13472 

3337 


OCA Q 


537 

13473 

1336 


TAO 0 


538 

13474 

7110 


CLL RAR 


539 

13475 

3336 


OCA 0 


540 

13476 

7420 


SNL 

/13 EVENTUALLY TRIES TO SHIFT INTO LINK 

541 

13477 

5262 


JMP OLOOP 


542 



/ 

FINAL REMAINDER IS NOW IN N 

543 

13500 

1337 


TAO Q 


544 

13501 

7110 


CLL RAR 

/QUOTIENT IS NEW TRACK-1 

545 

13502 

7001 


I AC 

/SINCE WE'RE OFFSETTING EVERYTHING UP ONE TRACK 

546 

13503 

3340 


DCA TRACK 

/SO THAT WE DON'T TOUCH PHYSICAL TRACK 0 

547 

13504 

1335 


TAO N 

/LINK IS NOW TO BE AOOEO TO 2*N 

548 

13505 

7004 


RAL 


549 

13506 

7001 


I AC 

/SECTORS BEGIN COUNTING AT 1 

550 

13507 

3341 


OCA SECTOR 


551 



/DONE 

COULO COME UP 

during following code 

552 

13510 

1341 

SPECL, 

TAD SECTOR 


553 

13511 

4200 


JMS TRANS 


554 

13512 

7200 


CLA 


555 

13513 

1340 


TAD TRACK 


556 

13514 

4200 


JMS TRANS 


557 

13515 

7200 


CLA 


558 

13516 

4345 


JMS OWAIT 

/WAIT FOR DONE 

559 

13517 

7410 


SKP 

/ANY ERRORS? 

560 

13520 

5620 


JMP I DISK 10 

/NONE 

561 

13521 

6002 


I OF 


562 

13522 

6757 


INIT 


563 

13523 

2776 


ISZ I (DFLAG 


564 

13524 

7201 


CLA IAC 


565 

13525 

6756 


INTR 

/INIT DISABLES INTERRUPTS 

566 

13526 

6001 


ION 


567 

13527 

2334 


ISZ TRYCNT 


568 

13530 

5223 


JMP TRYAGN 


569 

13531 

7330 

ERR, 

STL CLA RAR 

/JAM ON AC BIT 0 MEANING 'HARD ERROR' 

570 

13532 

1344 


TAD STATE 


571 

13533 

5764 


JMP I (RETRN 



35ft 





/2 FLOPPY DISK HANDLER FOR RTS-S 


572 

1353* 

777B 

TRYCNT , 

•10 

573 

13535 

BBBB 

N, 

0 

57 4 

13536 

1000 

o» 

0 

575 

13537 

0000 

0» 

0 

576 

13540 

0000 

TRACK, 

0 

577 

13541 

0000 

SECTOR, 

0 

578 

13542 

0000 

MOOBXT, 

0 

579 

13543 

BBBB 

FN0IT8, 

0 

560 

13584 

0000 

STATE, 

0 

581 





562 

13545 

0000 

OWAIT, 

0 

563 

13546 

4020 


CAL 

58a 

13547 

0002 


WAITE 

585 

13550 

3201 


OFLAG 

586 

13551 

1371 


TAD (8 

567 

13552 

6754 


SER 

568 

13553 

0344 


AND STATE 

589 

13554 

7650 


SNA CLA 

590 

13555 

2345 


ISZ OWAXT 

591 

13556 

5783 


jmp x owa: 

592 

13564 

3323 



593 

13565 

3200 



59* 

13566 

3203 



595 

13567 

3347 



596 

13570 

0014 



597 

13571 

0004 



596 

13S72 

3361 



599 

13573 

0100 



6B0 

13574 

3345 



601 

13575 

7770 



602 

13576 

3201 



603 

13577 

0377 



604 




s 


PALS-V9D •9/11/75 PAGE IS 
/NUMBER OF RETRIES 


/BIT 9 Zl THE *XNXT DONE* BIT 

/DONE COULD COME UP AFTER A POWER FAXL 

/SO ERROR FLAG OR XNXT STATUB XB AN ERROR 

/SKIP RETURN If NO ERRORB AND NO XNXT DONE 
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AC0002 

7326 

L7600 

3325 

SUSPND 

0004 

AC 2000 

7332 

MAUOR 

3210 

SWAPPE 

0021 

AC3777 

7350 

NCR 

0005 

SWPWT 

0400 

AC 4000 

7330 

MCREF 

0041 

SYS 

0010 

AC7775 

7346 

MCR3YS 

0001 

TASK 

0017 

AC7776 

7344 

MOOBIT 

3542 

TFTABL 

1367 

blkarg 

0010 

msgfld 

3341 

T00H 

0037 

BLOCK 

3346 

msgtbl 

1176 

TOOL 

0036 

BUFCDF 

3304 

MSGWT 

0020 

TRACK 

3540 

buffer 

3200 

MSK 

3352 

TRANS 

3400 

CAL 

4020 

N 

3535 

TRANWD 

3305 

CMECKP 

0001 

NETWT 

0010 

tryagn 

3423 

CLKQLN 

0020 

NONRWT 

4000 

TRYCNT 

3534 

CLKTYP 

0000 

NOSPEC 

3265 

TSTABL 

1244 

CLOCK 

0001 

NTASK3 

0023 

tswflg 

0035 

CMD 

3202 

osfill 

0004 

tty 

0003 

COMMAN 

0043 

osflds 

0002 

T2 

3443 

CS A 

0013 

oskodv 

0030 

UNBARG 

0012 

CSAF 

0014 

OSSYSD 

0010 

USERWT 

0100 

CUR 

0010 

OSTTDV 

0031 

WAITE 

0002 

D 

3536 

038 

0023 

WAITM 

4425 

DATE 

0040 

0S8F 

0020 

WC 

3204 

DERAIL 

0007 

PARTBL 

1420 

WORDLP 

3270 

OFLAG 

3201 

PARTNS 

0000 

XOR 

6752 

0F32 

0012 

POP 12 

0000 



OISKIO 

3420 

PDP8E 

0001 



OLOOP 

3462 

POST 

0005 



ONEWT 

0001 

P03TD3 

5424 



OTA 

0007 

PwRF 

0002 



OWAJT 

3545 

PWRFAL 

0001 



EAE 

0001 

Q 

3537 



EFCDF 

3336 

REC 

3203 



EFWT 

2000 

receiv 

0001 



ENAB«T 

0040 

HE8TBL 

1414 



eormnt 

0200 

retrn 

3323 



ERR 

3531 

RF08 

0011 



FN 

3361 

RK8 

0010 



FN0IT8 

3543 

RUN 

0003 



FNCTN 

3345 

RUNWT 

1000 



FREE 

4000 

RXUVCD 

0750 



GET 

3340 

RX8A 

0017 



HERTZ 

0170 

SDN 

6755 



HGHFLO 

0030 

SECTOR 

3541 



ICS 

0016 

SEND 

0000 



INIT 

6757 

SENOW 

0011 



INIWT 

0000 

SEN 

6754 



INTR 

6756 

shertz 

0074 



XNTRPT 

3405 

SKPINS 

0006 



LCD 

6751 

SPECL 

3510 



LDCMO 

3347 

START 

3200 



LOC 

3200 

state 

3544 



LOOP 

3206 

status 

3205 



LPT 

0004 

str 

6753 



LT A 

0006 

ST4RIT 

3300 



L37 

3312 

SUNIT 

0000 




36d 







t 


ERRORS DETECTED! • 
LINKS CENERATEOI 0 



361 




AC0002 

112# 





AC2000 

ill# 





AC3777 

110# 





AC4000 

109# 





AC7775 

108# 





AC7776 

107# 





AO 

135# 





BlKARG 

130# 





BLOCK 

364 

366 

3SS 

391 

448# 

BUFCOF 

372 

403 

413# 



BUFFER 

342# 

362 

414 

416 

418 

CAL 

116# 

343 

350 

437 

583 


CHECKP 54# 

CLKQLN 95# 

clktyp fa# 

CLOCK 63# 93 

CMD 34b# 450 455 

COMHAN 160# 

CS 138# 

CSA 7a# 

CSAF 75# 


CT 

136# 







CUR 

175 

175 

228# 

339 

365 

417 

484 

0 

526 

528 

537 

539 

574# 



DATE 

166# 







DERAIL 

129# 







OPLAti 

344# 

458 

488 

563 

585 



DF32 

73# 







DISKIO 

404 

424 

492# 

560 




OLOOP 

528# 

541 






ONEWT 

149# 







OTA 

69# 







DWAIT 

451 

558 

582# 

590 

591 



EAE 

50# 







EFCDF 

434 

439# 






EFrfT 

141# 







ENABWT 

146# 







EORMWT 

144# 







ERR 

569# 







FN 

360 

369 

373 

397 

408 

422 

462# 

FNBITS 

502 

510 

516 

579# 




FNCTN 

358 

378 

382 

425 

447# 

495 

503 

FREE 

133# 







GET 

357 

359 

361 

363 

429 

442# 

446 

HERTZ 

97# 







HGHFLO 

52# 







ICS 

76# 







INIT 

337# 

562 






INIWT 

179 

227# 






IHTR 

336# 

348 

565 





INTRPT 

346 

481# 

483 





LCD 

331# 

457 






LOCMO 

411 

449# 

460 

517 




LOC 

230# 

340 






LOOP 

350# 

440 






LPT 

66# 







L T A 

68# 







L37 

389 

419# 






L76PI0 

375 

430# 







498 
511 


506 

518 


362 



432 435 444 445 


MADDR 3524 355 354 

MCR 67# 9# 

MCREF 147# 

MCRSYS 91# 

MOOBIT 497 576# 

MSGFLO 353 433 443# 

MSGTBL 152# 153 172 

MSGWT 147# 


MS* 

361 

385 

401 

452# 



N 

524 

530 

533 

547 

573# 


NETWT 

148# 






N08PEC 

384 

397# 





NT ASKS 

53# 

78 

153 

155 

158 

159 

OSFILL 

86# 






osflos 

64# 






OSKBOV 

85# 






OSSY SD 

67# 






OSTTOV 

66# 






OSS 

78# 

63 





0S6F 

79# 






PARTBL 

159# 






PARTNS 

55# 






PDP12 

49# 






PDP8E 

48# 






POST 

127# 

438 





POSTOS 

117# 

490 





PWRF 

64# 






PWRFAL 

51# 






Q 

527 

534 

536 

543 

575# 


REC 

347# 

368 

405 

523 



RECEIV 

123# 

351 





RESTBL 

156# 

159 





RETRN 

428# 

571 





RF08 

72# 






RK8 

71# 

67 

102 




RUN 

125# 






RUNWT 

142# 






RXDVCD 

232# 

232 

331 

332 

333 

334 

RX8A 

77# 

226 





SON 

335# 

462 





SECTOR 

390 

550 

552 

577# 



SEND 

122# 






SENOM 

131# 






SER 

334# 

587 





SHErTZ 

96# 






SKPINS 

126# 

344 





specl 

520 

552# 





start 

176 

343# 





STATE 

406 

467 

570 

580# 

586 


STATUS 

349# 

407 

426 

431 



STR 

333# 

47 7 





stwrit 

399 

406# 





SUNIT 

103# 






SUSPNO 

126# 






SWAPPE 

70# 

101 

157 

159 



SWPWT 

143# 






SYS 

102# 






TASK 

172 

174 

178 

226# 



TFTABL 

155# 

158 

178 




TOOH 

165# 







335 


336 337 


* 


363 


TOOL 

164# 



TRACK 

396 

546 

555 

TRANS 

415 

476# 

460 

TRANWO 

414# 



TRYAGN 

495# 

568 


TRYCNT 

494 

567 

572# 

TSTABL 

153# 

155 

174 

TSWFLG 

163# 



TTY 

6b# 



T2 

508 

511# 


UOC 

135 



UN0APG 

132# 



USERwT 

145# 



WAITE 

124# 

584 


WAITM 

116# 



wC 

348# 

377 

367 

WORDLP 

400# 

421 


XDR 

332# 

479 

465 

*13364 

451 



*13365 

436 



A 13366 

415 



* 1336 7 

406 



*13370 

404 

4?4 


*13371 

396 



113372 

395 



*13373 

390 



.4.1 3374 

360 



*13375 

379 



^13376 

371 



3377 

370 



*13564 

571 



*13565 

525 



*13566 

523 



113567 

517 



*13570 

509 



*13571 

501 

586 


*13572 

498 

506 


*13573 

496 



*13574 

495 

503 

511 

113575 

493 



*13576 

486 

563 


113577 

466 




576# 

553 


400 


518 


556 


420 


V3 
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(VERSION PAL8-V9D 09/U/75 PAGE 1 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 


/PARAMETERS FOR RTS-8 TASKS (VERSION 2) 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT (C) 1974,1975 BY OIGITAL EQUIPMENT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
/AND SHOULO NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
/CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT, 

/ 

/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY OIGITAL. 

/ 

/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
/OIGITAL, 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 
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(VERSION PAL8-V90 09/11/75 PAGE 2 


45 

4b 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 


/RTSS V2 EXEC PARAMETERS • EDITED BY USER 

0001 PDP8E-1 
0000 POP12-0 

0001 EAE-1 
0001 PwRF AL-1 
0030 HGHFLD-30 
0023 NT ASKS-23 
0001 CHECKPT-1 
0000 PARTNS-0 

/(THE N PARTITIONS ARE NUMBERED FROM 0 TO N-l) 
/COMMON TASK NUMBERS • EDITED BY USER 

/IT IS ADVISABLE TO DEFINE ALL TASKS HERE, NAMES GIVEN BELOW 
/ARE USED BY SOME SYSTEM TASKS AND SHOULO BE DELETED FROM THIS 
/LIST IF THE CORRESPONDING TASK IS NOT INCLUDEO IN THE SYSTEM 

0001 CLOCK-1 
0002 PwRF-2 
0003 TTY-3 
0004 LPT-4 
0005 MCR-5 
0006 LTA-6 
0007 OTA-7 
0021 SWAPPER-21 
0010 RK8-10 

0011 RF08-U 
0012 DF32-12 

0013 CSA-13 
0014 CSAF-14 
0016 ICS-16 
0017 RX8A-17 

0023 0S8-NTASKS 
0020 OS8F-20 

/SOFTWARE PARAMETERS * EDITED BY USER 
IFDEF QS8 < 


0002 

0SFL0S-2 


0030 

OSKBDV-30 


0031 

OSTTDV-31 


0010 

OSSYSD-RK8 


0004 

OSFILL-4 



IPDEF 

MCR 

0001 

MCRSYS-1 



IFDEF 

CLOCK 

0000 

CLKTYP-0 


0020 

CLKQLN-20 

decimal 


0170 

HERTZ-120 


0074 

SHERTZ-60 

OCTAL 
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100 > 

101 IPDEP SWAPPER « 

102 0010 3Y3-RK8 

103 0000 3UNIT-0 

104 > 
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105 

106 

107 

7344 

/EQUIVALENCES! 

AC7776- CLL STA 

RAL 

106 

7346 

AC7775- 

CLL STA 

rtl 

109 

7330 

AC40001 

CLA STL 

RAR 

110 

7350 

AC3777- 

CLL STA 

RAR 

111 

7332 

AC2000- 

CLA STL 

RTR 

112 

7326 

AC0002- 

CLA STL 

STL 

U J 

114 

115 

116 


/MONITOR CALL VALUES! 

4020 

CAL- 

JMS 

20 /CALL THE EXECUTIVE 

117 

5424 

P0STD5- 

JMP I 

24 /DISMISS AN INTERRUPT 

116 

119 

4425 

WAITM- 

JMS I 

25 /WAIT FOR MULTIPLE EVENTS 

120 

121 

122 

0000 

SEND- 

0 

/NOTE! "**« MEANS CRITICAL VALUE NAY NOT 
/BE CHANGEO WITHOUT MODIFYING SYSTEM C0DE11 
/SEND MESSAGE 

123 

0001 

RECEIV- 

1 

/RECEIVE MESSAGE 

124 

0002 

WAITE- 

2 

/WAIT FOR EVENT FLAG 

125 

0003 

RUN- 

3 

/CONTINUE TASK EXECUTION 

126 

0004 

SUSPND- 

4 

/SUSPEND TASK EXECUTION 

127 

0005 

POST- 

5 

/POST AN EVENT FLAG 

126 

0006 

SKPINS- 

6 

/INSERT CODE INTO INTERRUPT SKIP CHAIN 

129 

0007 

OERAIL- 

7 

/INITIATE END*ACT ION 

130 

0010 

blkarg- 

10 

/BLOCK TASK FOR REASON SPECIFIED IN ARG 

131 

0011 

SENOWb 

11 

/SENO MESSAGE AND WAIT 

132 

0012 

UNBARG- 

12 

/UNBLOCK TASK FOR REASON SPECIFIED IN ARG 

133 

4000 

FREE- 

4000 

/-•FREE PARTITION 

134 

135 

136 

137 

136 


IFOEF UDC <AO-0/DO-l!01-2!GC-3|EC-4;RC-5 

OC-6!ECT-7!CS-10!OCT-11MI*12> 

/TASK STATUS FLAGS! 

139 

140 

4000 

nonrwt- 

4000 

/••NONRESIDENT TASK WAIT 

141 

2000 

EFWT. 

2000 

/EVENT FLAG WAIT 

142 

1000 

RUNWT- 

1000 

/SCHEDULE WAIT 

143 

0400 

SWPWT- 

0400 

/••SWAPPER WAIT 

144 

0200 

EORMWT- 

0200 

/EVENT FLAG OR MESSAGE WAIT 

145 

0100 

USERWT- 

0100 

/USER SPECIFIED WAIT 

146 

9040 

ENABWT- 

0040 

/ENABLE WAIT 

147 

0020 

MSGWT- 

9020 

/MESSAGE WAIT 

148 

0010 

NETWT- 

9010 

/NETWORK WAIT (RESERVED FOR POSSIBLE FUTURE 

149 

0001 

dnEmt- 

0001 

/••DOES NOT EXIST WAIT 
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<5- 

/SYSTEM LOCATIONS I 


150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 


1176 

1244 


MSGTBL* 1200*2 

TSTABL* NTASKS*2*2*MS6TIL*« 


1367 TFTABL* NTASKSP2*4pTSTA0L*1 


1414 

1420 

0043 


IFOEF SNAPPER < 


/TASK MESSAGE TABLE 
/TASK STATE TABLE • HOLDS 
/TASK LINK,UM,OF,IF,PC,AC,MQ 
/TASK FLAGS TABLE • HOLDS 
/TASK STATUS FLAGS 


RE3T0L" 

TFTABL♦NTASKSPf 

NTASKS*SWAPP|R««*REST0LP3S7774 

/RE3X0ENCY 

TABLE 

PARTBL* 

/PARTITION 

TABLE 

C0MMAND«43 

> 


/SNAPPER COMMANO 

TSWFLG* 

35 

/TASK SN INHIBIT FLAG 

IN FIELD 0 


tool* 

36 

/LON OROER TIME OF DAY 

IN FIELO 0 


TODHp 

37 

/HIGH OROER TIME OF DAY 

IN FIELD 0 


DATEP 

40 

/DATE IN OSS FORMAT 

IN FIELD 0 


MCREFp 

41 

/NCR START EVENT FLAG 

IN FIELD 0 
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169 



/TASK 

TABLE SETUP * "TASK", "CUR 

","ININT 

", AND "START" 

170 

171 

172 



/MUST 

BE DEFINED BY TASKI 




1212 


*TASK*24M3GTBL 




173 

01212 

0000 


ZBLOCK 2 

/MESSAGE 

BUFFER 

INITIALLY CLEAR 

174 


1274 


*TASK‘4-»TSTABL 



175 

01274 

0011 


CURX10+CUR 

/INITIAL 

FLAGS 


176 

01275 

5000 


START 




177 

01276 

0000 


0 

/INITIAL 

AC 0 


178 


1375 


•TA8KPTFTA0L 




179 

01375 

0000 


ININT 
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09/11/75 


PACE 8 


180 

181 

182 

185 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 
223 


/2 RTS-8 IINCTAPE HANDLER 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT (C) 1975 BY OIGXTAL EQUIPMENT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
/ANO SHOULO NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
/CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS OOCUMENT, 

/ 

/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
/UNOER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
/(WITH INCLUSION OF OIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 

/ 

/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
/OR RELIABILITY OF ITS 80FTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
/DIGITAL, 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 
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224 


/ 

FIXED BUG ON 16-JUN-75 RE USING DOUBLE BLOCKS IN 08/8 MODE 

225 

0006 


task-lta 

226 

0000 


INIWT-0 


227 

0010 


CUR-10 


228 





229 

5000 


LOC-5000 

i /LOAD AODRESS 

230 





231 


/ 

SR 


232 





233 


/ 

MESSAGE 

FORMAT! 

234 





235 


/ltmesg, 

ZBLOCK 3 

/RTS-8 OVERHEAD 

236 


/ 

MODE+UNIT 

237 


/ 

RW^PAGESfFIELD 

238 


/ 

BUFADO 


239 


/ 

BLOKNO 


240 


/ 

STATUS 


241 





242 


/MODE- 

0 

LINCTAPE CONTAINS 200 OR 201 WORDS PER BLOCK 

243 


/ 

4000 

LINCTAPE CONTAINS 400 WORDS PER BLOCK 

244 





245 


/UNIT- 


UNIT NUMBER (0-7) 

246 





247 


/RW- 

0 

RE AO 

248 


/ 

4000 

WRITE 

249 





250 


/pages- 


NUMBER OF PAGES TO TRANSFER (BITS 1-5) 0 MEANS 40 

251 


/ 


MUST BE EVEN IF 400 WORD PER BLOCK MODE 

252 





253 


/FIELD- 


FIELO OF BUFFER (BITS 6-8) 

254 





255 


/BUFADD- 

ADDRESS OF BUFFER 

256 


/ 


WORO AFTER END OF BUFFER IS VOLATILE 

257 





258 


/BLOK NO- 

LINCTAPE BLOCK NUMBER IF 400 WORD PER BLOCK MODE 

259 


/ 


OS/8 LOGICAL BLOCK NUMBER IF 201 WORD PER BLOCK MODE 

260 


/ 


(ONE OS/8 BLOCK ■ 2 LINCTAPE BLOCKS IN THIS CASE) 

261 





262 


/STATUS 


ONES complement of tape checksum left here 

263 


/ 


0 MEANS NO ERRORS 

264 





265 





266 


/ 


/ IN 201 WORD PER BLOCK MODE 

267 


/ 

WARNING! 

—> / WORO AFTER END OF BUFFER GETS 

268 


/ 


/ TEMPORARILY DESTROYED BY THIS TASK, 

269 





270 





271 

6141 


LINC-6141 /ENTER LINC MODE 

272 

M001 


AXO-1 

/AC TO EXTENDED TAPE OPERATIONS BUFFER 

273 

0002 


POP-2 

/ENTER PDP-8/I MODE 

274 

0003 


TAC-3 

/TAPE ACCUMULATOR BUFFER TO AC 

275 

0023 


TMA-23 

/AC TO TAPE MEMORY AOORESS SETUP REGISTER 

276 

6151 


LMR-6151 

/LOAD LINCTAPE MAINTENANCE REGISTER 
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277 


0001 


FIELD CURX10 

278 





279 


5000 


-LOC 

280 





281 




IFNDEF PDP12 

282 





283 



BPTR, 


28a 

15000 

4020 

START, 

CAL 

285 

15001 

0006 

UNIT, 

SKPINS 

286 

15002 

5200 

FNWORD, 

INTRPT 

287 

15003 

4020 

LOOP, 

CAL 

288 

15004 

0001 


RECEIVE 

289 

15005 

0000 

MADDR, 

0 

290 

15006 

3360 


OCA MSGFLO 

291 

15007 

7240 


STA 

292 

15010 

1205 


TAD MADOR 

293 

15011 

3205 


DCA MADOR 

29a 

15012 

4357 


JMS GET 

295 

15013 

3201 


DCA UNIT 

296 

15014 

4357 


JMS GET 

297 

15013 

3202 


DCA FNWORD 

298 

15016 

4357 


JMS GET 

299 

15017 

3200 


DCA BPTR 

300 

15020 

1201 


TAD UNIT 

301 

15021 

7004 


RAL 

302 

15022 

7200 


CLA 

303 

15023 

4357 


JMS GET 

304 

15024 

7420 


SNL 

305 

15025 

7104 


CLL RAL 

306 

15026 

3255 


OCA BLOCK 

307 

15027 

6211 


COF CUR 

308 

15030 

4777 


JMS I (PAGES 

309 

15031 

1202 


TAD FNWORD 

310 

15032 

7006 


RTL 

311 

15033 

0266 


AND L3 

312 

15034 

7106 


CLL RTL 

313 

15035 

1376 


TAO (702 

31 a 

15036 

3254 


DCA LTINST 

315 

15037 

7346 

GLOOP, 

AC7775 

316 

15040 

3365 


DCA TRYCNT 

317 

15041 

1200 

RETRY, 

TAO BPTR 

318 

15042 

1375 


TAO (200 

319 

15043 

3337 


DCA TEMP 

320 

15044 

4327 


JMS BUFC 

321 

15045 

1757 


TAD I TEMP 

322 

15046 

6211 


CDF CUR 

323 

15047 

3364 


DCA LOCSAV 

324 

15050 

1200 


TAD BPTR 

325 

15051 

6002 


IOF 

326 

15052 

6141 


LINC 

327 

15053 

0023 


TMA 

328 

15054 

0000 

LTINST, 

0 

329 

15055 

0000 

BLOCK, 

0 

330 

15056 

0002 


POP 

331 

15057 

2366 


ISZ DFLAG 


/POINTS TO BUFFER 

/INSERT INTERRUPT SKIP IN SKIP CHAIN 

/UNIT WORD (BIT 0-1 MEANS SPECIAL 400 WORD PER BLOCK MODE) 
/BITS 1*5 CONTAIN * OF PAGES LEFT TO XFER 

/GET A MESSAGE 

/ADDRESS OF MESSAGE LEFT HERE 
/CDF TO FIELD OF MSG LEFT IN AC 


/BUMP BACK MAOOR 

/GET UNIT ANO SPECIAL FUNCTIONS BIT 


/GET FUNCTION WORD 
/GET BUFFER ADDRESS 


/GET BLOCK NUMBER 


/STUFF ON 2ND PAGE 


/ISOLATE LOW ORDER UNIT AND R/W BIT 
/UNIT TO BIT 6 (OF COURSE) 

/702PREAO ONE BLOCK) 704-WRITE ONE BLOCK 
/SAVE NEWLY FORMED LINCTAPE INSTRUCTION 
/CAN'T HURT TO RETRY 3 TIMES 

/KLUDGE I SAVE 201ST WORD 
/CAUTION USER ABOUT THIS 
/THIS IS A REAL TIME SYSTEM 

/SAVE VOLATILE LOCATION 
/BACK TO OUR FIELD 


/ANOTHER UNAVOIDABLE EXCURSION INTO THE REALH8 OF 
/LINC MODE 1 

/PERFORM READ OR WRITE OF ONE BLOCK 
/LINCTAPE INSTRUCTION (702-READ, 706-WRITE) 

/BLOCK NUMBER 

/BACK TO CIVILISATION 

/NOTE THAT LINCTAPE IS NOW BUSY 
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332 

15060 

6001 


ION 

/A TYPE OF CHARGED ATOM 

333 

15061 

4020 


CAL 


334 

15062 

0002 


WAITE 

/WAIT FOR DONE FLAG TO COME UP 

335 

15063 

5166 


DFLAG 


336 

15064 

6002 


IOF 

/STAVE OFF POSSIBLE CATASTROPHE 

337 

15065 

6141 


LINC 

/WHO KNOWS WHERE EVIL LURKS? 

338 

15066 

0003 

L3, 

TAC 

/GET TAPE CHECK (7777 IS GOOD) 

339 

15067 

0002 


POP 

/GOODNESS 

340 

15070 

6001 


ION 

/PERMIT INTERRUTS, WE'RE SAFE NOW 

341 

15071 

7P40 


CM A 

/USE l'S COMPLEMENT SINCE 0 MEANS GOOD TO 

342 

15072 

3325 


DCA STATUS 

/SAVE RESULTING STATUS WORD 

343 

15073 

1201 


TAD UNIT 


344 

15074 

7710 


SPA CLA 


345 

15075 

5302 


JMP NOREST 

/NOTHING TO RESTORE IN 400 WORD/BLCK MODE 

346 

15076 

1364 


TAD LOCSAV 


347 

15077 

4327 


JMS BUFC 


348 

15100 

3757 


DCA I TEMP 

/RESTORE 201 ST WORD 

349 

15101 

6211 


CDF CUR 


350 

15102 

1254 

NOREST, 

TAD LTINST 


351 

15103 

0374 


AND (4 


352 

15104 

7640 


SZA CLA 

/READ OR WRITE? 

353 

15105 

3325 


OCA STATUS 

/WRITES CAN'T FAIL 

354 

15106 

1325 


TAD STATUS 


355 

15107 

7650 


SNA CLA 


356 

15110 

5332 


JMP OK 

/NO RETRIES IF WRITE WAS BAD 

357 

15111 

2365 


ISZ TRYCNT 

/READ ERROR 

358 

15112 

5241 


JMP RETRY 

/GO TRY AGAIN 

359 

15113 

4357 

EXIT, 

JMS GET 

/AC MIGHT BE NON.ZERO 

360 

15114 

7200 


CLA 

/DATA FIELD IS NOW RIGHT 

361 

15115 

1325 


TAD STATUS 


362 

15116 

3605 


DCA I MADDR 


363 

15117 

1360 


TAO MSGFLO 


364 

15120 

3325 


OCA EFCDF 


365 

15121 

1205 


TAD MADDR 


366 

15122 

1373 


TAD (-7 


367 

15123 

4020 


CAL 


368 

15124 

0005 


POST 


369 



STATUS, 


/ONES COMPLEMENT OF TAPE CHECK 

370 

15125 

7402 

EFCDF, 

HLT 


371 

15126 

5203 


JMP LOOP 

/GET ANOTHER MESSAGE 

372 






373 

15127 

0000 

BUFC, 

0 


374 

15130 

7402 

BuFCDF, 

HLT 


375 

15131 

5727 


JMP I BUFC 



37a 
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1 , 


376 

15132 

1201 

OK, 

TAD 

UNIT 

, 

377 

15133 

7004 


RAL 



378 

15134 

7200 


CLA 



379 

15135 

1202 


TAD 

FNWORD 


380 

15136 

0372 


AND 

(3700 


381 

15137 

7450 


SNA 



382 

15140 

1371 


TAD 

(4000 

/DON'T UPSET LINK BUT 0 MEANS «0 

383 

15141 

7430 


8ZL 



364 

15142 

1370 


TAD 

(•100 

/READ 2 PAGES IN SPECIAL MODE 

385 

15143 

1370 


TAD 

(•100 

/READ ONE PAGE IN REGULAR MOOE 

386 

15144 

7550 


SPA 

SNA 

/ANY MORE PAGES TO REAOT 

387 

15145 

5313 


JMP 

EXIT 

/NO (IGNORE LAST ODD-PAGE IF IN 400 WRD MODE) 

388 

15146 

3202 


DCA 

FNWORD 

/YES, PUT • BACK IN 'FNWORD' 

389 

15147 

1201 


TAD 

UNIT 

390 

15150 

7710 


SPA 

CLA 


391 

15151 

1375 


TAD 

(200 

/ADVANCE BUFFER PTR 400 IF 400 WD MODE 

392 

15152 

1375 


TAD 

(200 

/OR 200 IF 200/201 WO MOOE 

393 

15153 

1200 


TAD 

BPTR 


394 

15154 

3200 


DCA 

BPTR 


395 

15155 

2255 


ISZ 

SLOCK 

/POINT TO NEXT BLOCK 

396 

15156 

5237 


JMP 

6L00P 


397 







398 



TEMP, 



/SHORT FOR TEMPORARY 

399 

15157 

0000 

GET, 

0 


/DON'T TOUCH LINK 

400 







401 

15160 

7402 

MSGFLD, 

HLT 



402 

15161 

2205 


X8Z 

MADDR 


403 

15162 

1605 


TAD 

I MAODR 


404 

15163 

5757 


JMP 

I GET 


405 







406 

15164 

0000 

LOCSAV, 

0 



407 

15165 

7775 

TRYCNT, 

*3 



408 

15166 

0000 

DfLAC, 

0 


/TAPE DONE FLAG (G-OONE, 1»BUSV) 

409 

15170 

7700 





410 

15171 

4000 





411 

15172 

3700 





412 

15173 

7771 





413 

15174 

0004 





414 

15175 

0200 





415 

15176 

0702 





416 

15177 

5216 





417 


5200 


PAGE 
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418 

15200 

0000 

INTRPT, 

ZBLOCK 2 

/RTS«8 OVERHEAD 


419 

15202 

1377 


TAD (100 

/SKIP IF TAPE DONE PLAQ»1 


420 

15203 

6151 


LMR 



421 

15204 

7610 


SKP CLA 

/NOT DONE, CLEAR AC AND BRANCH BUT NOT 

JUMP 

422 

15205 

7610 


SKP CLA 

/DONE 


423 

15206 

5600 


JMP I INTRPT 

/NOT DONE, 60 ON TO NEXT SKIP 


424 

15207 

6211 


CDF CUR 



425 

15210 

1376 


TAO (200 

/CLEAR TAPE DONE *LAG 


426 

15211 

6151 


LMR 



427 

15212 

7200 


CLA 

/PLAY SAFE 


428 

15213 

1375 


TAO (DFLAG 



429 

15214 

6202 


CIF 0 

/POST DONE FLAG 


430 

15215 

5424 


P08TDS 

/DISMISS INTERRUPT 


431 







432 

15216 

0000 

PAGES, 

0 



433 

15217 

1774 


TAD I (FNWORD 



434 

15220 

0373 


AND (70 



435 

15221 

1372 


TAD (COF 



436 

15222 

3771 


DCA I (BUFCOF 



437 

15223 

1774 


TAD I (FNWORD 



438 

15224 

0373 


AND (70 

/ISOLATE FIELD OF BUFFER 


439 

15225 

7106 


CLL RTL 



440 

15226 

7006 


RTL 



441 

15227 

7006 


RTL 

/FIELD TO BITS 0-2 


442 

15230 

3245 


OCA TEM 



443 

15231 

1770 


TAD I (UNIT 



444 

15232 

0367 


ANO (7 

/ISOLATE UNIT NUMBER FROM UNIT WORD 


445 

15233 

7110 


CLL RAR 

/HlGHvOROER UNIT BITS TO AC 10,11 


446 

15234 

1245 


TAD TEM 

/COMBINE AND ALSO PUT LOW-ORDER UNIT • 

IN LINK 

447 

15235 

1366 


TAD (130 

/enable interrupts, extended mode, NO 

PAUSE 

448 

15236 

6002 


IOF 

/DISASTER IF GET INTERRUPT WHILE IN DREADED 

449 

15237 

6141 


LINC 

/LINC MODE 1 


450 

15240 

0001 


AXO 

/SEND FUNCTION TO CONTROLLER 


451 

15241 

0002 


PDF 

/BACK TO SAFE PDP-8 MODE 


452 

15242 

6001 


ION 

/THAT HASN'T TOO BAD NOW WAS ITT 


453 

15243 

7200 


CLA 



454 

15244 

5616 


JMP I PACE2 



455 







456 

15245 

0000 

TEM, 

0 



457 

15366 

0130 





458 

15367 

0007 





459 

15370 

5001 





460 

15371 

5130 





461 

15372 

6201 





462 

15373 

0070 





463 

15374 

5002 





464 

15375 

5166 





465 

15376 

0200 





466 

15377 

0100 





467 



S 
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AC0002 

7326 

MSGFLD 

5160 

TTY 

0003 

AC2000 

7332 

MSGTBL 

1176 

UNBARG 

0012 

AC5777 

7330 

M8GWT 

0020 

UNIT 

5001 

AC4000 

7330 

NETWT 

0010 

USERMT 

0100 

AC7775 

7346 

NONRWT 

4000 

WAITE 

0002 

AC7776 

7344 

NORE8T 

5102 

WAITM 

4425 

AXO 

0001 

NTA8K5 

0023 


BUKARG 

0010 

OK 

5132 



BLOCK 

5055 

osfill 

0004 



BPTR 

5000 

qsflds 

0002 



BUFC 

5127 

OSKBDV 

0030 



BUPCDF 

5130 

0SSY80 

0010 



CAL 

4020 

08TT0V 

0031 



CHECKP 

0001 

088 

0023 



CLKQLN 

0020 

038F 

0020 



CLKTYP 

0000 

PAGE2 

5216 



CLOCK 

0001 

PAHTBL 

1420 



comman 

0043 

PARTNS 

0000 



CS A 

0013 

POP 

0002 



CSAF 

0014 

PDP12 

0000 



CUR 

0010 

PDP8E 

0001 



DATE 

0040 

POST 

0005 



derail 

0007 

P0STD3 

5424 



OFLAG 

5166 

PwRF 

0002 



0F32 

0012 

PwRFAL 

0001 



ONEWT 

0001 

RECEIV 

0001 



DT A 

0007 

restbl 

1414 



EAE 

0001 

retry 

5041 



EFCOF 

5125 

RF08 

0011 



EFWT 

2000 

RK8 

0010 



ENABWT 

0040 

NUN 

0003 



EORMWT 

0200 

• RUNWT 

1000 



EXIT 

5113 

RX8A 

0017 



FNWORD 

5002 

SEND 

0000 



FREE 

4000 

SENOW 

0011 



GET 

5157 

shertz 

0074 



GLOOP 

5037 

SKPINS 

0006 



HERTZ 

0170 

START 

5000 



HGHFLD 

0030 

STATUS 

5125 



ICS 

0016 

sunit 

0000 



INIWT 

0000 

SUSPND 

0004 



INTRPT 

5200 

SWAFPE 

0021 



LINC 

6141 

SwPWT 

0400 



LMR 

6151 

SYS 

0010 



LOC 

5000 

TAC 

0003 



LOCSAV 

5164 

task 

0006 



LOOP 

5003 

tem 

5245 



LPT 

0004 

TEMP 

5157 



L T A 

0006 

TFTABL 

1367 



LTINST 

5054 

Tha 

0023 



L3 

5066 

TOOH 

0037 



MADDR 

5005 

tool 

0036 



MCR 

0005 

trycnt 

5165 



MCREF 

0041 

tstabl 

1244 



MCRSYS 

0001 

TSWFLG 

0035 




577 


ERRORS DETECTED! 0 
LINKS GENERATED! 0 


37« 



AC0002 

112# 



AC2000 

111# 



AC3777 

110# 



AC4000 

109# 



AC7775 

106# 

315 


AC7776 

107# 



AO 

135# 



AXO 

272# 

450 


blkarg 

130# 



BLOCK 

306 

329# 

395 

BPTR 

263# 

299 

317 

BUFC 

320 

347 

373# 

6UFC0F 

374# 

436 


CAL 

116# 

264 

267 

CHECK# 

54# 



CLKQLN 

95# 



CLKTYP 

94# 



CLOCK 

63# 

93 


COMMAN 

160# 



CS 

136# 



C8A 

74# 



CSAF 

75# 



CT 

136# 



CUR 

175 

175 

227# 

OATE 

166# 



DERAIL 

129# 



OFLAG 

331 

335 

406# 

0F32 

73# 



DNEWT 

149# 



OTA 

69# 



EAE 

50# 



EFCOF 

364 

370# 


EF*T 

141# 



ENABWT 

146# 



EORMWT 

144# 



ERROR 

261 



EXIT 

359# 

387 


FNWORD 

266# 

297 

309 

FREE 

133# 



GET 

294 

296 

296 

GLOOP 

315# 

396 


HERTZ 

97# 



hghfld 

52# 



ICS 

76# 



INIWT 

179 

226# 


INTRPT 

266 

416# 

423 

LINC 

271# 

326 

337 

LHR 

276# 

420 

426 

LOC 

229# 

279 


LOCSAV 

323 

346 

406# 

LOOP 

287# 

371 


LPT 

66# 



LTA 

68# 

225 


LTIN3T 

314 

326# 

350 

L3 

311 

338# 


MAOOR 

289# 

292 

293 

MCR 

67# 

90 


MCREF 

167# 



MCR8YS 

91# 




324 

375 

333 


277 

420 


379 

303 


449 


362 


393 394 

367 


307 122 349 


366 

433 

457 

359 

399# 

404 


365 402 403 


424 


> * 




379 



MSGFLO 

290 

363 

MSGTBL 

152# 

153 

MSGWT 

147# 


NETWT 

148# 


NOREST 

345 

350# 

NT ASKS 

53# 

78 

OK 

356 

376# 

osfill 

88# 


osflos 

84# 


OSKBDV 

65# 


OSSYSO 

67# 


OSTTDV 

66# 


OS8 

76# 

83 

OS8F 

79# 


PAGE2 

308 

432# 

PARTBl 

159# 


PARTNS 

55# 


POP 

273# 

330 

POP 12 

49# 

281 

PDPBt 

48# 


POST 

127# 

366 

POSTDS 

117# 

430 

PwRF 

64# 


PWPFAL 

51# 


RECEIV 

123# 

288 

RESTBL 

158# 

159 

retry 

317# 

358 

RF 08 

72# 


RK8 

71# 

87 

RUN 

125# 


RUNWT 

142# 


RX6A 

77# 


SEND 

122# 


SENDW 

131# 


SHERTZ 

96# 


SKPINS 

126# 

285 

START 

176 

264# 

STATUS 

342 

353 

SUN IT 

103# 


SUSPND 

126# 


SWAPPE 

70# 

101 

SwPwT 

143# 


SYS 

102# 


TAC 

274# 

338 

TASK 

172 

174 

TEH 

442 

446 

TEMP 

319 

321 

TFTABL 

155# 

156 

TMA 

275# 

327 

TOOH 

165# 


TOOL 

164# 


TRYCNT 

316 

357 

TSTABl 

153# 

155 

TSWFLG 

163# 


TTY 

65# 


UDC 

1 35 


UN8ARG 

l 32# 


UNIT 

285# 

295 

IJSERNT 

145# 


*AITE 

1 24# 

334 


401# 

172 

153 155 158 159 

454 

339 451 

102 

354 361 369# 

157 159 

176 225# 

456# 

346 396# 

178 

407# 

174 

300 343 376 389 




443 


360 




WAITM 

lie# 


a.151 70 

384 

385 

.4.1 5171 

382 


.*15172 

380 


115173 

366 


115174 

351 


115175 

318 

391 

115176 

313 


.4.15177 

308 


.4.1 5366 

447 


115367 

444 


115370 

443 


115371 

436 


.4.15372 

435 


115373 

434 

438 

.4.15374 

433 

437 

115375 

428 


115376 

425 


115377 

419 



V3 


312 


381 



/PARAMETERS FOR RTS»8 TASKS (VERSION PAL8*V9D 09/11/75 PACE 1 


2 

3 

a 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 




/PARAMETERS FOR RTS-8 TASKS (VERSION 2) 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT CCD 1974,1975 BY OIGITAl EQUIPMENT CORPORATION 
/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANCE WITHOUT NOTICE 
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
/CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS OOCUMENT. 

/ 

/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
/UNOER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL, 

/ 

/OIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
/DIGITAL, 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 
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/PARAMETERS FOR RTS-8 TASKS 


(VERSION PAL8-V9D 09/11/75 PAGE 2 


49 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 


0001 

0000 

0001 

0001 

0030 

0023 

0001 

0000 


/RTSS V2 EXEC PARAMETERS - EDITED BY USER 

PDP8E-1 

PDP12»0 

EAE*1 

PWRFAL-l 

MGHFL0*3S 

NTA3K8*23 

CHECKPT*1 

PARTN3*0 

/(THE N PARTITIONS ARE NUMBERED FROM 0 TO N-l) 
/COMMON TASK NUMBERS • EDITED BY USER 

/IT IS AOVISABLE TO DEFINE ALL TASKS HERE, NAMES GIVEN BELOW 
/ARE USED BY SOME SYSTEM TASKS AND SHOULD BE DELETED FROM THIS 
/LIST IF THE CORRESPONDING TASK IS NOT INCLUDED IN THE SYSTEM 


63 

0001 

CLOCK*1 


64 

0002 

PWRF *2 


65 

0003 

TTY*3 


66 

0004 

LPT*4 


67 

0005 

MCR«5 


68 

0006 

LTA-6 


69 

0007 

0TA*7 


70 

S021 

SWAPPER«21 


71 

0010 

RK8«10 


72 

0011 

RF08*11 


73 

0012 

DF32*12 


74 

0013 

CSA■13 


75 

0014 

CSAF»14 


76 

0016 

ICS*16 


77 

0017 

RX8A*17 


78 

0023 

0S8«NT ASKS 


79 

0020 

OS8F*20 


80 




81 


/SOFTWARE PARAMETERS ' 

82 




83 


IFDEF 

OSS 

84 

0002 

0SFLDS*2 


85 

0030 

OSKBOV*30 


86 

0031 

0STT0V*31 


87 

0010 

0SSYSD-RK8 


88 

0004 

0SFILL94 


89 


> 


90 


IFDEF 

MCR 

91 

0001 

MCRSYS* 1 


92 


» 


93 


IFDEF 

CLOCK 

94 

0000 

CLKTYP*0 


95 

• 020 

CLKOLN*20 


96 


DECIMAL 


97 

0170 

HERTZ*l20 


98 

0074 

SHERTZ*60 


99 


OCTAL 



EDITED BY USER 


SS3 


/PARAMETERS FOR RTS-8 TASKS (VERSION PAL6«V9D 09/11/75 PAGE 2-1 

100 » 

101 IFDEF SWAPPER « 

102 0010 SYS-RK8 

103 0000 8UNITI0 

104 » 
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/PARAMETERS FOR RTS-i TASKS (VERSION PALI«V9D 01/11/7! PAGE 1 


105 


/EQUIVALENCES! 


108 





107 

7384 

AC7776* 

CLL STA 

RAL 

101 

7346 

AC7773* 

CLL STA 

RTL 

109 

7330 

AC4000P 

CLA STL 

RAR 

110 

7350 

ACJ777* 

CLL STA 

RAR 

111 

7332 

AC2000* 

CLA STL 

RTR 

112 

732b 

AC0002R 

CLA STL 

rtl 

113 





114 

115 
lib 


/MONITOR CALL VALUES! 

4020 

CAL* 

JN3 

20 /CALL THE EXECUTIVE 

117 

5424 

POSTOSf 

JMP X 

24 /DISMISS AN INTERRUPT 

118 

4413 

NAITH9 

JM8 I 

23 /WAIT FOR MULTIPLE EVENTS 

119 





120 




/NOTH "•*' MEANS CRITICAL VALUE MAY NOT 

121 




/BE CHANGED WITHOUT MODIFYING SYSTEM COOE1I 

122 

0000 

SEND* 

0 

/SEND MESSAGE 

123 

0001 

RECEIV* 

1 

/RECEIVE MESSAGE 

124 

0002 

WAITE* 

2 

/WAIT FOR EVENT FLAG 

125 

0003 

RUN* 

3 

/CONTINUE TASK EXECUTION 

12b 

0004 

SUSPND* 

4 

/SUSPEND TASK EXECUTION 

127 

0005 

POST* 

3 

/POST AN EVENT FLAG 

128 

0006 

SKPINSt 

b 

/INSERT CODE INTO INTERRUPT SKIP CHAIN 

129 

0007 

DERAIL* 

7 

/INITIATE END«ACTION 

130 

0010 

blkarg* 

10 

/BLOCK TASK FOR REASON SPECIFIED IN ARG 

131 

0011 

SENOW. 

11 

/SEND MESSAGE AND WAIT 

132 

0012 

UNBARG* 

12 

/UNBLOCK TASK FOR REASON SPECIFIED IN ARG 

133 

4000 

FREE* 

4000 

/••FREE PARTITION 

134 





135 



IFOEF UDC <AO*0|DO»llDI*2|GC*3fEC*4|RC*5 

136 




OC*bfECT«7!CS*10fDCT*ll|AI*12> 

137 





138 

139 

140 


/TASK STATUS FLAGS! 

4000 

NONRWT* 

4000 

/••NONRESIDENT TASK WAIT 

141 

2000 

EFWT* 

2000 

/EVENT FLAG WAIT 

142 

1000 

RUNHT* 

1000 

/schedule WAIT 

143 

0400 

SWPWT* 

0400 

/••SWAPPER WAIT 

144 

0200 

EORMWT* 

0200 

/event flag or message wait 

145 

0100 

USERWT* 

0100 

/USER SPECIFIED WAIT 

1 «b 

0040 

ENA0WT* 

0040 

/enable WAIT 

147 

0020 

MSGWT* 

0020 

/message wait 

148 

0010 

NETWT* 

0010 

/NETWORK WAIT (RESERVED FOR POSSIBLE FUTURE USE) 

149 

0001 

DNEWT* 

0001 

/••DOES NOT EXIST WAIT 
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/PARAMETERS FOR RTS'S TASKS (VERSION PA18«V9D 09/11/75 PAGE 4 


150 


/SYSTEM 

LOCATIONS! 


151 






152 

1176 

MSGTBL* 

1200*2 

/TASK 

MESSAGE TABLE 

153 

1244 

tstail* 

NTASKS*2*2*M3GTBL»4 /TASK 

STATE TABLE • HOLDS 

15a 




/TASK 

link,um,df,IF,PC,AC, 

155 

1367 

TFTABL* 

NTASKS*2*4*TSTABL*1 /TASK 

FLAGS TABLE • HOLDS 

15b 




/TASK 

STATUS FLAGS 

157 



IFDEF 

SWAPPER < 


158 

1414 

RESTBL* 

TFTABL*NTASKS*2 

/RESIDENCY TABLE 

159 

1420 

PARTBL* 

NT ASKS* 

SWAPPER*2*RESTBL*3A7774 

/PARTITION TABLE 

160 

0043 

C0MMAND*43 


/SWAPPER COMMAND 1 

161 



> 



162 






163 

0035 

TSWFLG* 

35 

/TASK SW INHIBIT FLAG 

IN FIELD 0 

164 

0036 

TOOL* 

36 

/LOW ORDER TIME OF DAY 

IN FIELD 0 

165 

0037 

TOON* 

37 

/HIGH ORDER TIME OF DAY IN FIELD 0 

166 

0040 

OATE* 

40 

/DATE IN 0S8 FORMAT 

IN FIELD 0 

167 

0041 

MCREF* 

41 

/MCR START EVENT FLAG 

IN FIELD 0 

168 







38* 



/PARAMETERS FOR RT8-8 TASKS 


(VERSION PALB-V9D 09/11/75 PAGE 9 


1*9 /TASK TABLE SETUP « "TASK", "CUR","INIWT", ANO "START" 

170 /MUST BE DEFINED BY TASKI 

171 

172 1232 *TASK*I*MSGTBL 

173 01232 0000 ZBLOCK I /MESSAGE BUFFER INITIALLY CLEAR 

174 1334 *TASK*4*TSTABL 

175 01334 0011 CURX104>CUR /INITIAL FLAGS 

176 01335 0663 START 

177 01336 0000 0 /INITIAL AC 0 

178 1405 *TASK*TFTABL 

179 01405 0000 INIWT 
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/ICS/UDC HANDLER V2 FOR RTS-8 V2 PAL8-V9D 09/11/75 PAGE 6 


180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 


/ICS/UDC HANDLER V2 FOR RTS-8 V2 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT (C) 1974, 1975 BY DIGITAL EQUIPMENT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
/CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT, 

/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
/(WITH INCLUSION OF OIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 

/ 

/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
/DIGITAL, 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

IFDEF UDC <CONASB*1> 

IFOEF ICS «C0NASB>1> 

IFDEF CONASB < 
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✓IC8/U0C HANDLER V2 FOR RT8-8 VI 


PALS-V9D 09/11/75 FACE 7 


227 

221 

229 

230 

231 

232 

233 

234 

235 

236 

237 
23a 

239 

240 

241 

242 

243 

244 

245 

246 

247 
246 

249 

250 
231 

252 

253 

254 


0010 CUR*10 

IFOEF UDC « TA3K*UDC > 

0016 IFOEF ICS < TASK■ICS » 

0000 XNIWT*0 /START RUNNING 

//DEFINE HARDWARE PARAMETERS FOR IC3/U0C HANDLER TASK 
OECXMAL 


0000 FAD*0 

0002 NA0*2 

IFOEF UOC «NMPLX»0» 
0007 NMPLX*7 

0010 OELTAPNMPLX*! 

0020 DELTAwOELTA*NAO 
0016 FCTR«14 

0001 NCNTRPl 

0000 FCT*0 

0002 NCNTCP2 


/ADOR OF FIRST A/D CHANNEL 
/MUST BE CONTIGUOUS CHANNELS (UOC) 

/NO, OF A/0 CHANNELS 
/OEFAULT OF ZERO FOR UDC 

/NO, OF ICS HULTIPLEXOR MODULES PER CONVERTER 


/ADOR OF FIRST COUNTER 
/MUST IE CONTIGUOUS CHANNELS 
/NO, OF COUNTERS 
/ADOR OF FIRST CONTACT 
/MUST BE CONTIGUOUS CHANNELS 
/NO, OF CONTACTS 


OCTAL 

//DEFINE SOFTWARE PARMETER3 FOR ICS/UDC HANOLER TASK 


0012 

0012 


0PC0DE412 

RINGBF*12 


/NO, OF OP COOES IN HANOLER 
/NO, OF INTERRUPTS IN RING BUFFER 


309 


/ICS/UDC HANOLER V2 FOR RT8.0 V2 PAL8-V9D 09/11/75 PAGE 8 


255 

256 

/II POSSIBLE OPERATIONS! 

257 

/EACH CALL IS 10 WORDS 

LONG (INCL HEAOER) 

258 

/WORD 10 IS SET TO CONTAIN ERROR FLAGS 

259 

260 

/ANALOG OUTPUT 

OP COOE 

261 

/ 

MAJOR CHANNEL 

262 

/ 

CHANNEL(0*1) 9 VALUE(t»l1) 

263 

/DIGITAL OUTPUT 

OP COOE 

264 

/ 

CHANNEL 

265 

/ 

VALUE 

266 

/DIGITAL INPUT 

OP CODE 

267 

/ 

CHANNEL 

26S 

/ 

0 FOR ANSWER 

269 

/GET GENERIC CODE 

OP COOE 

270 

/ 

CHANNEL NUMBER 

271 

/ 

0 FOR ANSWER 

272 

/enable contact 

OP COOE 

273 

/ 

SIT+CHANNEL NUMBERS 

274 

/ 

ACTION CODECS,1,2), ONCE FLAG(3) 

275 

/ 

TASK NO,(4.11)1 

276 

/ 

0*SET EVENT FLAG(NO TASK NO LEEDEO) 

277 

/ 

NO ASSOC, INFO (0) 

278 

/ 

l«RUN TASK 

279 

/ 

NO ASSOC, INFO (0) 

280 

/ 

2»DERAIL THE TASK TO 

261 

/ 

ADDRESS(SAME FIELD AS MESSAGE) 

282 

/ 

3*1«D0 ACTION JUST ONCE 

263 

/ 

3«0«FOR EACH INTERRUPT 

284 

/disable contact 

OP COOE 

285 

/ 

BIT ♦ CHANNEL NUMBER 

286 

/ENABLE counter 

OP CODE 

287 

/ 

CHANNEL NUMBER 

268 

/ 

INIT VALUE 

289 

/ 

RELOAD VALUE(0"OON*T RELOAD) 

290 

/ 

ACTION COOE, ONCE FLAG ♦ TASK(4*11) 

291 

/ 

0*SET EVENT FLAG 

292 

/ 

NO ASSOC. INFO(0) 

293 

/ 

l*RUN TASK 

294 

/ 

NO ASSOC, INFO (0) 

295 

/ 

2-DERAIL THE TASK TO 

296 

/ 

ADDRESS(SAME FIELD AS MESSAGE) 

297 

/ 

3*1*00 ACTION JUST ONCE 

290 

/ 

3*0*FOR EACH INTERRUPT 

299 

/DISABLE COUNTER 

OP CODE 

300 

/ 

CHANNEL NUMBER 

301 

/READ COS 

OP CODE 

302 

/ 

CHANNEL NUMBER 

303 

/ 

0 FOR ANSWER 

304 

/ANALOG INPUT 

OP COOE 

305 

/ /•*** 

ICS **** 

306 

/ 

MAJOR CHANNEL // LESS THEN 17(10) 

307 

/ 

ENABLE,GAIN,SUBCHANNEL // 0-120(10) 

308 

/ 

0 FOR ANSWER 

309 

/ /*•** 

UDC **** 
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/XCS/UOC HANDLER V2 FOR RT8-S V2 


PAL8*V9D 08/11/75 PAGE 8*1 


310 


/ 

MAJOR CHANNEL 

311 


/ 

ENABLE,GAIN,SUBCHANNEL 

312 


/ 

0 FOR ANSWER 

313 


/READ COUNTER OP CODE 

314 


/ 

CHANNEL NUMBER 

315 


/ 

0 FOR ANSWER 

316 




317 


/ERROR CONDITIONS RETURNEO 

318 


/ 


319 


/ 

1 -- INVALID GENERIC COOE FOR THE OPERATION 

320 


/ 

2 »« INVALID CHANNEL OR SUBCHANNEL 

321 


/ 

3 OP COOE OUT OF RANGE 

322 


/ 

5 *- ICS/UOC NOT RESPONDING CORRECTLY (POWERED 

323 




324 


/DEFINITIONS OF IOTS 

325 

6361 


U0SP>6361 

326 

6364 


UDEI«6364 

327 

6365 


UD0IP6365 

328 

6363 


UOLA-6363 

329 

6366 


UDRD-6366 

330 

6367 


UOLD'6367 

331 

6351 


UDSSP6351 

332 

6353 


UOSC-6353 

333 

6356 


U0RAP6356 

334 

6357 


U0LS*6357 

335 

6355 


UDRSP6355 
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/IC8/UDC HANDLER V2 FOR RTS»8 V2 PAL8»V9D 09/11/75 PAGE 9 


336 


0001 


FIELD CURX10 


337 


0130 


• 130 



338 

10130 

0000 

Tl, 

0 


/GEN TEMP 

339 

10131 

0000 

T2» 

0 


/" 

340 

10132 

0000 

AT2, 

0 


/ADORESS PTR 

341 

10133 

0000 

RINGCT, 

0 


/COUNT OF FULLNESS OF RING BUFFER 

342 

10134 

0737 

ENDOP, 

END 


/AFTER PROCESSING A COMMANO 

343 

10135 

0000 

T6LPTR, 

0 


/FOR POINTING TO ALL INTERNAL TABLES 

344 

10136 

0000 

ADDRUP, 

0 



345 

10137 

0642 

MORE 10, 

UOCMOR 



346 

10140 

1266 

RINQDN, 

RNGEND 



347 

10141 

0000 

ERRNMB, 

0 

/ERROR 

NUMBER (IF ZERO NO ERROR) 

348 







349 

10142 

0000 

CDFMSG, 

0 



350 

10143 

0000 

MSGCOF, 

0 



351 

10144 

5542 


JMP I 

CDFMSG 


352 







353 


0600 


*600 



354 

10600 

4020 

GOTMAL# 

CAL 



355 

10601 

0001 


RECEXV 



356 

10602 

0000 

CALAOR, 

0 



357 

10603 

3143 


OCA 

MSGCDF 


358 

10604 

3141 


OCA 

ERRNMB 

/CLEAR ERROR NUMBER 

359 

10605 

1202 


TAD 

calaor 


360 

10606 

3241 


DCA 

SAVADR 


361 

10607 

1202 


TAO 

CALAOR 


362 

10610 

3136 


OCA 

ADORUP 

/A00RE8S FOR LOOKING AT ARBS 

363 

10611 

4142 


JMS 

CDFMSG 


364 

10612 

1602 


TAD I 

CALAOR 

/GET OP COOE 

365 

10613 

6211 


CDF 

CUR 


366 

10614 

7510 


SPA 


/0»12 

367 

10615 

5777 


JMP I 

(BAOOP 


368 

10616 

1376 


TAD 

(•OPCOOE /UPPER LIMIT OP OP CODES 

369 

10617 

7540 


SZA SMA 



370 

10620 

5777 


JMP I 

(BAOOP 


371 

10621 

1375 


TAO 

(OPTBLPOPCOOC 

372 

10622 

3130 


DCA 

Ti 


373 

10623 

1530 


TAD I 

Ti 


374 

10624 

3130 


OCA 

Tl 


375 

10625 

5530 


JMP I 

Tl 

/DISPATCH TO TASK 

376 

10626 

1473 

0PT6L, 

AOOP 


377 

10627 

1473 


DOOP 



378 

10630 

1462 


DIOP 



379 

10631 

1730 


GCOP 



380 

10632 

2000 


CCNTR 



381 

10633 

1324 


RDCNTR 



382 

10634 

1714 


OCNTR 



383 

10635 

1600 


ECAOP 



384 

10636 

1721 


RDCOS 



385 

10637 

1705 


DCAOP 



386 

10640 

2067 


AIOP 



387 

10641 

0000 

SAVAOR, 

0 
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368 

10642 

6213 

UDCMOR, 

CIF CDF 

CUR 


369 

10643 

1133 


TAO 

RINCCT 

/0-EMPTY,-10-FULl 

390 

10644 

7640 


SZA CLA 



391 

10645 

5774 


JMP I 

(D0RXN6 

/handle the ring BUFFER 

392 

10646 

6201 


CDF 

0 

/BUFFER EMPTY 

393 

10647 

1773 


TAD X 

(TASK*2*MSGT0L 

394 

10650 

7640 


SZA CLA 



395 

10651 

5200 


JMP 

COTMAL 

/MESSAGE WAITING 

396 

10652 

1372 


TAD 

(4000+TA8K 

397 

10653 

3262 


DCA 

UDCEV 


396 

10654 

6211 


CDF CUR 



399 

10655 

6202 


CIF 0 



400 

10656 

6002 


IOF 



401 

10657 

4425 


WAITM 


/RTSS SUBROUTINE TO BLOCK 

402 

10660 

0200 


EORMWT 


/CURRENT TASK 

403 

10661 

5242 


JMP 

UDCMOR 


404 







405 

10662 

0000 

UOCEV, 

0 



406 







407 



START, 




406 



IPOEF 

PWRF« 



409 

10663 

4020 


CAL 



410 

10664 

0000 


SEND 



411 

10665 

0002 


PWRF 



412 

10666 

1557 


DRLADR 



413 




> 



414 

10667 

4020 


CAL 



415 

10670 

0006 


SKPXN8 



416 

10671 

1000 

DERXNT, 

UDCXNT 


/DERAIL ENTRY POINT FOR POWER RECOVERY 

417 

10672 

7300 


CLA CLL 



416 

10673 

1371 


TAD 

(■NCNTC 


419 

10674 

7450 


SNA 



420 

10675 

5313 


JMP 

CENERL 


421 

10676 

3131 


DCA 

T2 


422 

10677 

1370 


TAD 

(DCOSTS 


423 

10700 

3130 


DCA 

T1 


424 

10701 

1367 


TAD 

(FCT 

/GET AOORESS OF FIRST CONTACT 

425 

10702 

3132 


OCA 

AT2 


426 

10703 

1132 

XNITIP, 

TAO 

AT2 


427 

10704 

6363 


UDLA 



426 

10705 

6366 


UDRO 



429 

10706 

3530 


OCA X 

Tt 

/LOAO up tbl with init values 

430 

10707 

2132 


X8Z 

AT2 


431 

10710 

2130 


ISZ 

T1 


412 

10711 

2131 


ISZ 

T2 


433 

10712 

5303 


JMP 

INITLP 


434 

10713 

3133 

GENERl, 

DCA 

RIN6CT 

/STARTS OUT EMPTY 

435 






/RINCCT1 -RINGIF - FULL?0 - EMPTY 

436 

10714 

1366 


TAO 

CRING0T 


437 

10715 

3765 


OCA I 

(RIN0PT 


436 

10716 

1366 


TAD 

(RINC0T 


439 

10717 

3764 


DCA I 

CTBLOUT 


440 

10720 

1363 


TAD 

(•DC03T8*CNTCT» 

441 

10721 

3131 


OCA 

T2 


442 

10722 

1362 


TAO 

(CNTCTB 

/FROM A SAFE DISTANCE 
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443 

10723 

3130 


DCA 

T1 

/START TO FILL TABLES 


444 

10724 

7240 

NEGIT, 

CLA CMA 


/WITH 7777 


445 

10725 

3530 


DCA I 

T1 



446 

10726 

2130 


ISZ 

T1 



447 

10727 

2131 


ISZ 

T2 



448 

10730 

5324 


JMP 

NEGIT 



449 

10731 

6364 


UOEI 




450 

10732 

5242 


JMP 

UDCMOR 



451 








452 

10733 

3143 

ANIEXT, 

DCA 

MSGCDF 



453 

10734 

7346 


AC7775 




454 

10735 

1132 


TAD 

AT2 



455 

10736 

3241 


DCA 

SAVAOR 



456 








457 

10737 

7300 

ENO, 

CLA CLL 


/NO ERRORS RETURN 


456 

10740 

1241 


TAD 

SAVAOR 



459 

10741 

1361 


TAD 

(6 



460 

10742 

3130 


DCA 

T1 

/7TH WORD IS STATUS 


461 

10743 

1141 


tad 

EPRNMB 



462 

10744 

4142 


JMS 

CDFMSG 



463 

10745 

3530 


DCA I 

T1 



464 

10746 

6211 


CDF 

CUR 



465 

10747 

UA3 


TAD 

MSGCDF 

/WHEN ALL DONE, POST EV 

FL6 

466 

10750 

3355 


OCA 

POSCDF 



467 

10751 

7346 


AC7775 




466 

10752 

1241 


TAD 

SAVAOR 



469 

10753 

4020 


CAL 




470 

10754 

0005 


POST 




471 

10755 

0000 

POSCDF, 

0 




472 

10756 

5242 


JMP 

UDCMOR 



473 








474 








475 

10761 

0006 






476 

10762 

2200 






477 

10763 

6755 






476 

10764 

1201 






479 

10765 

1122 






460 

10766 

1333 






461 

10767 

0000 






462 

10770 

3223 






413 

10771 

7776 






464 

10772 

4016 






485 

10773 

1232 






466 

10774 

1202 






487 

10775 

0640 






466 

10776 

7766 






489 

10777 

1517 






490 


1000 


PAGE 
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491 

11000 

0000 

UOCXNT, 

ZBLOCK 

2 

/UDC INTERRUPT LEVEL CODE 


492 






/WO 1 • AODR NEXT SKXP CHAIN 

ENTRY 

493 






/WO 2 • SET TO ITS CDF CXF 


494 

11002 

6361 

UDC8KP, 

UD8F 


/SKXP IF FLAG SET 


495 

11003 

5600 


JMP X 

UOCXNT 



496 

11004 

6213 


COF CXF 

CUR 


497 

11005 

1377 


TAD 

(RXNGSF 



498 

11006 

1133 


TAD 

RXNGCT 



499 

11007 

7650 


SNA CLA 




500 

11010 

5273 


JMP 

NOMORE 

/IP FULL MUST WAXT 


501 

11011 

1133 


TAD 

RINGCT 

/ROOM FOR AT LEAST 1 MORE 


502 

11012 

3272 


DCA 

OLDCT 

/SAVE FOR BUFFER WAS EMPTY CHECK 

503 

11013 

6364 


UDEX 


/NEEDCO 8EC, U08F TURNS |NTS 

OFF 

504 

11014 

6355 

MORCHK, 

UDR8 



505 

11015 

7450 


SNA 




506 

11016 

5263 


JMP 

OKPTR 

/NO INTERRUPT PENDING-DONE 


507 

11017 

6353 


UDSC 



508 

11020 

6351 


UDS8 




509 

11021 

5220 


JMP 

.>1 

/ONLY A SHORT WAIT 


510 

11022 

6356 


UDRA 


/GET VALUE 


511 

11023 

3722 


DCA X 

RXNGPT 

/OC-ADDR XNTO BUFFER 


512 

11024 

7240 


CLA CMA 




513 

11025 

1133 


TAD 

RXNGCT 

/NON THAT WE'VE GOT A VALUE 


514 

11026 

3133 


OCA 

RXNGCT 

/GUMP COUNTER 


515 

11027 

1722 


TAD I 

RXNGPT 

/DECODE TIME 


516 

11030 

7106 


CLL RTL 




517 

11031 

7430 


SZL 




518 

11032 

5277 


JMP 

NOCNTC 

/G.T. OR EO, 4 


519 

11033 

7700 


SMA CLA 


/0,1,2, OR 3 


520 

11034 

5325 


JMP 

ONEZER 

/BAD NEWS 


521 

11035 

1722 


TAD X 

RXNGPT 

/CONTACT INTERRUPT 


522 

11036 

0376 


AND 

(377 

/ADDRESS MASK 


523 

11037 

1375 


TAD 

(DCOST0-FCT 


524 

11040 

3323 


OCA 

XNT1 



525 

11041 

1723 


TAO X 

INTI 



526 

11042 

3324 


DCA 

XNT2 

/TEMP, SAVE PREVIOUS COS 


527 

11043 

6366 


UDRD 




528 

11044 

3723 


DCA I 

XNT1 

/REPLACE WXTH LATEST COS 


529 

11045 

1324 


TAD 

XNT2 



530 

11046 

6357 


UDL8 


/GET PREV COS FOR CONTACTS 


531 

11047 

2322 

SAVEWD, 

X s z 

RXNGPT 



532 

11050 

3722 


DCA X 

RXNGPT 



533 

11051 

7100 


CLL 




534 

11052 

2322 


XS2 

RXNGPT 



535 

11053 

1322 


TAD 

RINGPT 



536 

11054 

1374 


TAO 

(-RXNGTP /AVOID OVERFLO 


537 

11055 

7620 


SNL CLA 




538 

11056 

5214 


JMP 

MORCHK 



539 

11057 

7100 


CLL 




540 

11060 

1373 


TAO 

(RINGBT 

/POINT TO BOTTOM AGAIN 


541 






/BUFFER FXLLEO BY 2S, 


542 

11061 

3322 


DCA 

RINGPT 


543 

11062 

5214 


JMP 

MORCHK 



544 

11063 

1272 

OKPTR, 

TAO 

OLOCT 



545 

11064 

7650 


SNA CLA 
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546 

11065 

1133 


TAO 

RXNGCT 

/BUFFER WAS EMPTY 

547 






/SEE IF NOW HAS AN ENTRY 

548 

11066 

7640 


SZA CLA 


/IF NO, POSTDS WITH AC»0 

549 

11067 

1372 


TAD 

(UDCEV 

/POST UDC EVENT FLAG 

550 






/BUFFER BECAME NON-EMPTY 

551 






/SO WAKE UDC UP 

552 

11070 

6202 


CIF 

0 


553 

11071 

5424 


POSTDS 



554 

11072 

0000 

OLDCT, 

0 



555 







556 



/IF NO 

MORE ROOh 

1, REMOVE 

: UDSF 

557 



/leave 

UDC OISABLDED, SET FLAG, ♦ POSTDS WITH AC-0 

558 

11073 

2771 

NOMORE, 

, ISZ I 

(REENAB 


559 

11074 

3202 


OCA 

UDCSKP 

/0 THE SKIP 

560 

11075 

6202 


CIF 

0 


561 

11076 

5424 


POSTDS 


/ AC«0 
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562 

11077 

7100 

NOCNTC 

# CLL 



563 

11100 

1370 


TAO 

(2000 


564 

11101 

7620 


SNL CLA 



565 

11102 

5247 


JMP 

SAVEWD 

/A 0 FOR COUNTERS 

566 

11103 

1722 


TAO I 

RINGPT 


567 



XFDEF 

ICS « 



568 

11104 

0367 


AND 

(17 

/AOOR PART FOR SUBCH GET 

569 




6 



570 



IFDEF 

UDC < 



5711 




AND 

(377 

/ADOR PART FOR SUBCH GET 

572 




> 



573 

11105 

3323 


OCA 

XNT1 


574 

11106 

6366 


UDRO 


/GET SUBGHANNELtRREV ADOR XN 

575 






/AOOR REG MUST BE FOR THIS CHAN 

576 



IFDEF 

XC8 9 



577 

11107 

0366 


AND 

(177 


578 

11110 

1365 


TAO 

(-10 

/REMOVE BIAS Hi 

579 

mu 

7106 


CLL RTL 



580 

11112 

7006 


RTL> PAL 

/SUBCHANNEL XNTO BITS |«7 

561 

11113 

7004 





582 




» 



583 



XFDEF 

UDC « 



584 




ANO 

(7 


585 




CLL RTR 



586 




RTR 


/INTO BITS 1-3 

587 




> 



588 

11114 

7130 


STL RAR 


/AND NOW WHEN BIT 0M"A/O INT 

589 

11115 

1323 


TAD 

INTI 


590 

11116 

3722 


OCA X 

RXNQPT 

/REPLACE WITH REARRANGED VALUE 

591 






/REARRANGED VALUEl 

592 






/BIT 0«A/D 

593 






/•*** UDC **** 

594 






/BITS 1-3PIUBCHANNEL (0*1ST) 

595 






/BITS 4-11-ADDR 

596 






/*•** ICS MN 

597 






/BITS 1-7'SUBCHANNEL (0»13T) 

598 






/BITS 8-t1■ADDR 

599 

11117 

6367 


UDLO 


/LOAD A 0 BEFORE READ(BIT 6) 

600 

11120 

6366 


UDRD 



601 

11121 

5247 


JMP 

SAVEWD 


602 







603 

11122 

0000 

RINGPT 

* 0 



604 

11123 

0000 

INTI, 

0 



605 

11124 

0000 

XNT2, 

0 



606 







607 

11125 

2133 

ONEZER 

, ISZ 

RINGCT 

/IGNORE BAD VALUES (OVERWRITE) 

608 

11126 

7000 

K 7000 * 

NOP 



609 

11127 

5214 


JMP 

MORCHK 



397 


/ICS/UDC HANDLER V2 FOR RTS-6 V2 PAL8-V9D 09/11/75 PAGE 13 


610 



ADINT, 




611 



IFDEF ICS « 




612 

11130 

0367 

ANO 

(17 



613 



> 




614 

11131 

4764 

JMS 

I 

CADCHK 

/GC, SUBCH ♦ ADDR IN AC 

615 

11132 

1763 

TAD 

I 

(TBLND1 


616 



IFDEF UDC < 




617 



AND 


(3400 

/GET SUBCHANNEL 0-7 

616 



CLL 

RTL 



619 



RTL 




620 



rtl 



/SUBCH*2 

621 



> 




622 



IFDEF ICS < 




623 

11133 

0362 

ANO 


(3760 

/GET SUBCHANNEL 0-120 

624 

11134 

7112 

CLL 

RTR 



625 

11135 

7010 

RAR 



/SUBCH*2 

626 



> 




627 







628 

11136 

1132 

TAO 


AT2 

/NOW PTR WILL INCLUDE SUBCH 

629 

11137 

3132 

DC A 


AT2 

/TABLE INDEX, XNCL SUBCH 

630 

11140 

1532 

TAD 

I 

AT2 


631 

11141 

3346 

OCA 


ADFLD 


632 

11142 

2132 

ISZ 


AT2 


633 

11143 

1532 

TAO 

I 

AT2 

/AOOR 

634 

11144 

3132 

OCA 


AT2 


633 

11145 

1761 

TAO 

I 

(TBLW02 


636 

11146 

0000 

aoflo, 0 



/SET TO CDF 

637 

11147 

3532 

OCA 

I 

AT2 

/PASS VALUE BACK 

636 

11150 

6211 

COF 


CUR 


639 

11151 

3760 

DC A 

I 

(RGORCM 


640 

11152 

1346 

TAD 


ADFLD 


641 

11153 

5757 

JMP 

I 

(ANIEXT 


642 







643 

11157 

0733 





644 

11160 

1530 





645 

11161 

1271 





646 

11162 

3760 





647 

11163 

1270 





648 

11164 

2120 





649 

11165 

7770 





650 

11166 

0177 





651 

1 1167 

•017 





652 

11170 

2000 





653 

11171 

1200 





654 

11172 

0662 





655 

11173 

1333 





656 

11174 

6422 





657 

11175 

3223 





658 

11176 

0377 





659 

11177 

0012 





660 


1200 

PAGE 
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681 11200 0000 REENAB, 0 

662 11201 0000 TBLOUT , 0 

663 

664 /NON-XNTERRUPT CODE FOR UOC SERVICE 


665 

11202 

7300 

CORING, 

CIA 

CLL 



666 

11203 

2777 


1SZ 

I 

(RGORCM 

/IN CASE OF ERRORS 

667 

11204 

1601 


TAO 

I 

TBLOUT 

/GC6A00R WORD 

668 

11205 

3270 


OCA 


TBLWD1 

/GCPADDR 

669 

11206 

2201 


ISZ 


TBLOUT 


670 

11207 

1601 


TAO 

I 

TBLOUT 

/WORD 2 

671 

11210 

3271 


OCA 


TBLN02 


672 

11211 

2201 


ISZ 


TBLOUT 


673 

11212 

7300 


CLA 

CLL 



674 

11213 

1376 


TAO 


(-RINGTP 

675 

11214 

1201 


TAD 


TBLOUT 


676 

11215 

7620 


SNl 

CLA 


/CHECK FOR OVERFLOW 

677 

11216 

5221 


JMP 


OKOUT 


678 

11217 

1373 


TAO 


(RXNGBT 


679 

11220 

3201 


OCA 


TBLOUT 


680 

11221 

2133 

OKOUT, 

ISZ 


RINGCT 

/ROOM FOR 1 MORE 

681 

11222 

7000 


NOP 




682 

11223 

6212 


CIF 


CUR 

/GOES WITH NOMORE CODE 

683 

11224 

1200 


TAO 


REENAB 

/SEE IF ROOM NOW 

684 

11225 

7650 


SNA 

CLA 



685 

11226 

5233 


JMP 


NOTRUB 

/NO PROBLEM 

686 

11227 

3200 


OCA 


REENAB 

/NOW THERE'LL BE ROOM 

687 

11230 

1374 


TAO 


(UDSF 

/SO FIX IT ALL UP 

688 

11231 

3773 


OCA 

I 

(UDCSKP 


689 

11232 

6364 


UOEI 



690 

11233 

1270 

NOTRUB, 

TAO 


TBLWD1 

/OET, GENERIC TYPE 

691 

11234 

7510 


SPA 




692 

11235 

5772 


JMP 

I 

(AOINT 

/LO BIT SET »A/D 

693 

11236 

7106 


CLL 

RTL 



694 

11237 

7420 


SNL 




695 

11240 

5771 


JMP 

I 

(CONTAC 
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696 



/JUMPING ON 

THRU 


697 

11241 

7300 

COUNTR« CLA 

CLL 



698 

11242 

1270 

TAD 


TBLW01 


699 

11243 

4770 

JMS 

I 

(COUNCK 

/TEST FOR VALIDITY 

700 

11244 

3135 

OCA 


tblptr 

/cnttbl ptr 

701 

11245 

1535 

TAO 

I 

TBLPTR 

/CHECK FOR RELOAD 

702 

11246 

3130 

DC A 


T1 


703 

11247 

2135 

ISZ 


tblptr 


704 

11250 

1535 

TAO 

X 

TBLPTR 


705 

11251 

7001 

I AC 




706 

11252 

7650 

SNA 

CLA 



707 

11253 

5537 

JMP 

I 

MOREIO 

/THIS COUNTER NOT CURRENTLY 

708 

11254 

1270 

TAD 


TBLW01 


709 

11255 

0367 

AND 


(377 

/ADDR 

710 

11256 

6002 

IOF 




711 

11257 

6363 

UOLA 



712 

11260 

1130 

TAO 


T1 


713 

11261 

7440 

SZA 




714 

11262 

6367 

UOLO 


/RESET TO FETCHEO VALUE 

715 

11263 

6363 

UOLA 


/BACK TO ADOR 0 

716 

11264 

6001 

ION 




717 

11265 

4272 

JMS 


0I8PTH 


718 

11266 

3777 

RNGEND, OCA 

I 

(RGORCM 

/CLEAR IT 

719 

11267 

5537 

JMP 

I 

MORE 10 


720 

11270 

0000 

TBLWDI, 0 




721 

11271 

0000 

T8LWD2, 0 




722 







723 

11272 

0000 

0I8PTH, 0 




724 

11273 

1135 

TAO 


tblptr 


725 

11274 

3766 

OCA 

I 

COFLG 


726 

11275 

1535 

TAO 

X 

TBLPTR 


727 

11276 

0365 

AND 


(177 


728 

11277 

3130 

OCA 


T1 

/ACTION 9 TASK NO. 

729 

11300 

1535 

TAD 

X 

TBLPTR 


730 

11301 

2135 

ISZ 


tblptr 

/DETERMINE ACTION 

731 

11302 

7106 

CLL 

RTL 



732 

11303 

7420 

SNL 




733 

11304 

5312 

JMP 


ZROTWO 


734 

11305 

7300 

CLA 

CLL 



735 

11306 

1130 

TAD 


T1 

/19RUN 

736 

11307 

4020 

cal 




737 

11310 

0003 

RUN 




730 

11311 

5764 

JMP 

I 

(ENDOIS 


739 

11312 

7700 

ZROTWO, 8MA 

CLA 


/LO 3*0 FOR E.FfBIT 2«1 FOR 

740 

11313 

5763 

JMP 

I 

(SEVFLG 


741 

11314 

1535 

TAO 

I 

TBLPTR 

/GET ADDR FOR DERAIL 

742 

11315 

3321 

OCA 


EAOOR 


743 

11316 

1130 

TAD 


T1 


744 

11317 

4020 

CAL 




745 

11320 

0007 

DERAIL 



746 

11321 

0000 

EADDR, 0 




747 

11322 

5764 

JMP 

I 

(ENDDIS 


748 

11323 

5672 

DDSPTH, JMP 

I 

OISPTH 


749 







750 

11324 

4762 

RDCNTR, JMS 

I 

(ARG2 



400 



/XCS/UOC HANDLER V2 FOR RT»«I V2 


751 

11325 

4370 

JMS 

752 

11326 

6002 

IOF 

753 

11327 

7200 

CLA 

754 

11330 

1761 

TAO I 

755 

11331 

6363 

UDLA 

756 

11332 

5760 

JMP I 


FAL0-V9D 00/11/70 RAGE \Ul 
(COUNCK 

(CHANNO 

(READCH 


401 


/IC3/UDC HANDLER V2 FOR RTS-8 V2 PAL8-V9D 09/11/75 PAGE 16 


757 



758 



759 



760 



761 



762 



763 



764 



765 

11333 

0000 

766 

11356 

0000 

767 



76S 



769 

11360 

1463 

770 

11361 

1556 

771 

11362 

1506 

772 

11363 

1400 

773 

11364 

1410 

774 

11365 

0177 

775 

11366 

1422 

776 

11367 

0377 

777 

11370 

2046 

778 

11371 

1423 

779 

11372 

1130 

780 

11373 

1002 

781 

11374 

6361 

782 

11375 

1333 

783 

11376 

6422 

784 

11377 

1530 

785 


1400 


1FZERO RINGBF*RINGBF*,»REENA8»16044000« 

PAGE> 

/LEAVE room for cooe+literals 
/TRY TO PREVENT PAGE OVERFLOWS 

/RING BUFFER HAS 2 WORDS/INTERRUPT 
/WORD 1 ■ GOAODRMNNNiA/D 

/wORO 2 ■ XOR FOR CONTACTS,0 FOR COUNTERS,A/O VALUE FOR AI 
RINGBT, ZBLOCK 2*RINGBF-1 
RINGTP, 0 

/IF IT'S IN THE RING BUFFER, IT AT LEAST HAO A 
/VALID GENERIC COOE (NOT 0 OR 1) AT INTERRUPT TIME 


PAGE 




✓ ICS/UDC HANDLER V2 FOR RTS-8 V2 


PAL8-V9D 09/11/73 PACE 17 


78b 

11400 

1377 

SEVFUG, 

TAD 

(6200 

/6200 TO FORM CDF 

787 

11401 

1130 


TAD 

T1 

/WITH SAVED HI b BITS 

788 

11402 

3207 


DCA 

EFCDF 


789 

11403 

734b 


AC7773 



790 

11404 

1533 


TAD X 

TBLPTR 

/ADDR XN TBL 

791 

11405 

4020 


CAL 



792 

1140b 

0005 


POST 



793 

11407 

0000 

EPCOF* 

0 



794 






/SET USER'S MESSACE CV FLAB XMMED 

795 






/WHEN CALLED XF TACK NO OR DERAIL 

79b 






/If EVENT FLAB, WAIT TIL VERY END 

797 

11410 

lb22 

ENDOIS, 

TAO X 

DFLC 


798 

11411 

037b 


AND 

(400 


799 

11412 

7b50 


SNA CLA 



600 

11413 

5773 


JMP X 

(DDSPTH 

/MORE THAN ONCE 

601 

11414 

7240 


CLA CMA 



802 

11415 

3b22 


DCA X 

DFLC 

/ONCE ONLY, 7777 BACK XN TABLE 

803 

1141b 

2222 


132 

DFLC 


604 

11417 

7240 


CLA CMA 



805 

11420 

3b22 


OCA X 

DFLC 


80b 

11421 

5773 


JMP X 

(D08PTH 


607 

11422 

0000 

DFLG, 

0 



808 








403 


/ICS/UDC HANDLER V2 

FOR RTS. 

>8 V2 

PAL8.V9D 09/11/75 PACE 10 

809 

11423 

7700 

CONTAC, 

SMA 


CLA 


810 

11424 

5340 


JMR 

X 

RIN6DN 


811 

11425 

1774 


TAO 

I 

(TBLWD1 


612 

11426 

4773 


JMS 

I 

(CNTCCK 

/CHECK FOR ALL LEGAL 

813 

11427 

1130 


TAD 


T1 

814 

11430 

3261 


DCA 


CCHNO 

/CHANNEL NO, STRIPPED 

815 

11431 

1772 


TAD 

X 

(TBLW02 


81b 

11432 

3237 


DCA 


ROTWD 

/COS VALUE 

617 

11433 

3260 


OCA 


BXTCNT 

/WXLL COUNT BITS 

618 

11434 

1237 

N0T8ET , 

TAO 


ROTWD 

/ROTATED ALREAOY FOR BIT TO EXAM 

819 

11435 

7450 


SNA 




820 

11436 

5540 


JMP 

X 

RINCON 

/ALL BXTS CHECKED 

821 

11437 

7700 


SMA 


CLA 

/CHECK FOR SET BXTS 

822 

11440 

3252 


JMP 


ROTATE 


823 



/IF BIT 

SET, 

DO 

ITS ACTION. CHECK ALL 12 BITS 

824 



/IF BIT 

■ B, 

MOVE ON 


825 

11441 

1260 


TAO 


BXTCNT 


82b 

11442 

3131 


OCA 


T2 


827 

11443 

1261 


TAD 


CCHNO 


826 

11444 

3130 


OCA 


T1 


829 

11445 

4771 


JMS 

I 

(CXNOEX 


630 

11446 

1535 


TAO 

I 

TBLPTR 


831 

11447 

7001 


XAC 




832 

11450 

7640 


SZA 

CLA 



833 

11451 

4770 


JMS 

I 

(DISPTH 

/DO WHAT HE SAYS 

634 

11452 

2260 

ROTATE, 

xsz 


BXTCNT 


633 

11433 

1257 


TAD 


ROTWD 


83b 

11454 

7104 


RAL 

CLL 



837 

11455 

3257 


OCA 


ROTWD 


836 

11456 

5234 


JMP 


NOTSET 


639 

11457 

0000 

ROTWD, 

0 




840 

11460 

0000 

BXTCNT, 

0 




841 

11461 

0000 

CCHNO, 

0 





404 





/XC8/UDC HANOLER V2 FOR RTI-I V2 


S42 

11462 

4300 

DIOP, 

JM8 

6C0 

643 

11463 

2136 

REAOCH# 

X8Z 

ADDRUP 

844 

11464 

6366 


UDRD 


645 

11465 

6001 


ION 


646 

11466 

4142 


JM6 

CDFM8G 

647 

11467 

3536 


DCA X 

ADDRUP 

646 

11470 

•211 


COF 

CUR 

149 

11471 

6363 


UOLA 


650 

11472 

5534 


JMP X 

ENDOP 

851 






652 



AOOP, 



653 

11473 

4300 

DOOP, 

JMS 

GC0 

• 54 

11474 

4306 


JMS 

ARG2 

855 

11475 

6367 


UDLD 


• 56 

11476 

6001 


ION 


• 57 

11477 

5534 


JMP I 

ENDOP 

658 






659 

11500 

0600 

BCD# 

0 


•60 

11501 

4306 


JMS 

ARG2 

861 

11502 

4331 


JMS 

CHNLCK 

862 

11503 

7640 


• ZA 

CLA 

663 

11504 

5321 


JMP 

BADGC 

664 

11505 

5700 


JMP X 

8C0 

665 






866 

11506 

0000 

AR62# 

0 


667 

11507 

2136 


I8Z 

ADDRUP 

868 

11510 

4142 


JM8 

CDFM60 

669 

11511 

1536 


TAD X 

ADORUP 

870 

11512 

6211 


CDF CUR 


871 

11513 

5706 


JMP I 

ARG2 

872 






873 

11914 

2141 


XSZ 

ERRNMB 

874 

11515 

2141 

DVCERR# 

XSZ 

ERRNMB 

875 

11516 

2141 


XSZ 

ERRNMB 

• 76 

11517 

2141 

BADOP# 

XSZ 

ERRNMB 

877 

11520 

2141 

CHNNG# 

XSZ 

ERRNMB 

876 

11521 

2141 

BADGC# 

XSZ 

ERRNMB 

879 

11522 

6001 


ION 


660 

11523 

7300 


CLA CLL 


861 

11524 

1330 


TAD 

RGORCM 

682 

11525 

7640 


SZA CLA 


863 

11526 

5540 


JMP X 

RXNGON 

664 

11527 

5534 


JMP X 

ENDOP 

615 

11530 

0000 

RGORCH, 

0 


866 







PALB-V9D 09/U/T3 PAGE 19 
/CHECK GENERIC CODE 


/RETURN VALUE 

/RESET TO B FOR REAO COUNTER 


/LOAO THE DIGITAL(ANALOS) OUTPUT 


/MUST BE S 
/GET NEXT ARG 


/ADD ONE TO ERROR NUMBER (M6) 
/ADO ONE TO ERROR NUMBER (M5) 
/ADO ONE TO ERROR NUMBER (MR) 
/ADD ONE TO ERROR NUMBER (MS) 
/ADD ONE TO ERROR NUMBER (M2) 
/ADD ONE TO ERROR NUMBER (Ml) 
/LEFT OFF XN chnlck 


/OCCURRED AT OORXNG TIME 


409 


/ICS/UDC HANDLER V2 FOR RT»«B V2 


667 






688 

11531 

0000 

CHNLCK, 

• 


889 

11532 

7510 


SPA 


890 

11533 

5320 


JMP 

CHNNG 

891 

11534 

3356 


DCA 

CHANNO 

892 

11535 

1356 


TAD 

CHANNO 

893 

11536 

1367 


TAO 

(•377 

894 

11537 

7740 


8MA SZA 

CLA 

695 

11540 

5320 


JMP 

CHNNG 

896 

11541 

6002 


IOF 


• 97 

11542 

1356 


TAO 

CHANNO 

• 96 

11543 

6363 


UOLA 


• 99 

11544 

7240 


CLA CMA 


900 

11545 

6356 


UDRA 


901 

11546 

0366 


AND 

(377 

902 

11547 

7041 


CIA 


903 

11550 

1356 


TAD 

CHANNO 

904 

11551 

7640 


SZA CLA 


905 

11552 

5315 


JMP 

DVCERR 

906 






907 

11553 

6356 


UDRA 


906 

11554 

0365 


ANO 

(7400 

909 

11555 

5731 


JMP I 

CHNLCK 

910 

11556 

0000 

CHANNO# 

0 


911 






912 

11557 

0000 

ORLAOR# 

ZBLOCK 

3 

913 

11562 

0671 


DERXNT 


914 






915 

11565 

7400 




916 

11566 

0377 




917 

11567 

7401 




918 

11570 

1272 




919 

11571 

1666 




920 

11572 

1271 




921 

11573 

1630 




922 

11574 

1270 




923 

11575 

1323 




924 

11576 

0400 




625 

11577 

6200 




926 


1600 


PAGE 



PALS-V'O 09/11/75 PA6E 10 


/MUST BE ••377 


/CHECK FOR OPERATIONAL UDC-DH 


/DEVICE CXC8 OR UDC) NOT RESPONDING 111 
/ MAY NOT EXIST OR POWERED DOWN OR "DOWN" 


/RETURN WITH GENERIC CODE 


/POWER RECOVERY "DERAIL" ADDRESS 


406 



/XC3/U0C HANDLER V2 

FOR RTS 

•8 V2 

PALS-V90 09/11/75 PAGE 21 

927 

11600 

4202 

EC AOP t 

JMS 

DECAST 


928 

11601 

5777 


JMP 1 

(GETPLG 


930 

11602 

0000 

DECAST, 

0 


/DXSABLE*ENABLE CONTACTS 

931 

11603 

4776 


JMS X 

(ARG2 


932 

11604 

3130 


OCA 

T1 

/GET BXT NO, ♦ CHAN NO, 

933 

11605 

1130 


TAD 

Tt 


934 

11606 

0375 


AND 

(7400 


935 

11607 

3131 


OCA 

T2 

/BXT NO, 

936 

11610 

1131 


TAD 

Tt 


937 

11611 

7100 


CLL 



938 

11612 

1374 


TAO 

(2000 

/MUST BE L.T, 14 

939 

11613 

7630 


SZL CIA 


940 

11614 

5773 


JMP I 

(BADGC 


94 J 

11615 

1131 


TAO 

T2 

/BIT NUM 

942 

11616 

7006 


RTL 



943 

11617 

7006 


rtl 



944 

11620 

7004 


RAl 



945 

11621 

3131 


OCA 

Tt 

/INTO LO 4 BITS 

946 

11622 

1130 


TAD 

T1 

947 

11623 

4230 


JMS 

CNTCCK 


948 

11624 

4266 


JMS 

CXNOEX 


949 

11625 

1135 


TAD 

TBLPTR 


950 

11626 

3132 


DCA 

AT2 


951 

11627 

5602 


JMP X 

OECAST 


953 

11630 

0000 

CNTCCK, 

0 


/ADOR XN AC 1 RETURN WITH GC 

954 

11631 

4257 


JMS 

MASCHK 

955 

11632 

7006 


RTL 



956 

11633 

7430 


SZL 


/2 OR 3 ONLY 

957 

11634 

5773 


JMP X 

(BADGC 

958 

11635 

7700 


SMA CLA 



959 

11636 

5773 


JMP I 

(BADGC 


960 

11637 

4243 


JMS 

LXMCHK 


961 

11640 

7776 


•FCT»NCNTC 


962 

11641 

0002 


NCNTC 



963 

11642 

5630 


JMP I 

CNTCCK 


965 

11643 

0000 

lxmchk, 

0 



966 

11644 

1643 


TAD I 

LXMCHK 


967 

11645 

2243 


1SZ 

LIMCHR 


968 

11646 

1130 


TAD 

ti 

/COMPARE UPPER TABLE LIMIT 

969 

11647 

7500 


SMA 


970 

11650 

5772 


JMP X 

(CHNNG 


971 

11651 

1643 


TAO X 

LXMCHK 

/AND LOWER LIMIT 

972 

11652 

2243 


XSZ 

LXMCHK 


973 

11653 

7510 


SPA 



974 

11654 

5772 


JMP I 

(CHNNG 


975 

11655 

3130 


OCA 

Tl 

/CHANNEL NO, (0«N) 

976 

11656 

5643 


JMP I 

LIMCHK 



407 


/ ICS/UDC HANDLER V2 

FOR RTS' 

• 8 V2 

PAL8»V9D 09/11/75 PAGE 22 

977 

11657 

0000 

MASCHK, 

0 



/ADOR XN AC 

978 

11660 

0371 


AND 


(377 


979 

11661 

3130 


OCA 


Tt 


980 

11662 

1130 


TAO 


Tt 


981 

11663 

4770 


JMS 

I 

(CHNLCK 


982 

11664 

6001 


ION 




983 

11665 

5657 


JMP 

I 

MASCHK 


984 








985 

11666 

0000 

CINDER, 

0 



/BIT NO, IN T2, CH, NO, XN Tl 

986 

11667 

1130 


TAD 


Tl 


987 

11670 

7106 


CLL 

rtl 



988 

11671 

3135 


OCA 


TBLPTR 

/USING XT AS A TEMP 

989 

11672 

1130 


TAD 


Tl 


990 

11673 

7004 


RAL 




991 

11674 

1135 


TAD 


TBLPTR 

/NON *6 

992 

11675 

7006 


RTL 



/*30 

993 

11676 

3130 


OCA 


Tt 


994 

11677 

1131 


TAD 


T2 

/BIT NO, 

995 

11700 

7104 


RAL 

CLL 


/*2 

996 

11701 

1130 


TAD 


Tl 


997 

11702 

1367 


TAO 


(CNTCTB 


998 

11703 

3135 


OCA 


TBLPTR 


999 

11704 

5666 


JMP 

X 

CXNOEX 


1000 








1001 

11705 

4202 

DCAOP, 

JMS 


DECAST 


1002 

11706 

5316 


JMP 


TNOFIL 


1003 








1004 

11707 

0000 

MINUS 1, 

0 



/MOVE POINTER BACK BV 1 

1005 

11710 

7240 


CLA 

CMA 



1006 

11711 

3532 


DCA 

X 

AT2 


1007 

11712 

2132 


X8Z 


AT2 


1008 

11713 

5707 


JMP 

X 

MINUS 1 


1009 








1010 

11714 

4766 

OCNTR, 

JMS 

X 

(CNTRST 


1011 

11715 

4307 


JMS 


MINUS 1 

/MUST DISABLE ALL WORDS 

1012 







/WORD 2 ACTUALLY CHECKED 

1013 

11716 

4307 

TWOFXLi 

JMS 


MXNUS1 


1014 

11717 

4307 


JMS 


MINUS 1 


1015 

11720 

5534 


JMP 

X 

ENDOP 


1016 








1017 

11721 

4776 

ROCOS, 

JMS 

X 

(ARGt 


1018 

11722 

4230 


JMS 


CNTCCK 


1014 

11723 

1130 


TAD 


Tl 


1020 

11724 

1365 


TAD 


(DCOSTB 


1021 

11725 

3131 


OCA 


T2 


1022 

11726 

1531 


TAD 

I 

T2 

/GET LAST VALUE 

1023 

11727 

5341 


JMP 


SENDXT 



408 





A 


/XC8/U0C HANDLER V2 FOR RTS-8 VS 


o 


1024 

11730 

4776 

GCOP, 

JH8 X 

(ARG2 

1025 

11731 

6002 


XOF 


1028 

11732 

6363 


UDLA 


1027 

11733 

6356 


UDRA 


1020 

11734 

6001 


XON 


1029 

11735 

0373 


AND 

(7400 

1030 

11736 

7106 


CLL RTL 


1031 

11737 

7006 


RTL 


1032 

11740 

7004 


RAL 


1033 

11741 

2136 

8EN0XT, 

X8Z 

ADORUP 

1034 

11742 

4142 


JM8 

C0FH8G 

1035 

11743 

3536 


OCA X 

ADORUP 

1036 

11744 

6211 


CDF 

CUR 

1037 

11745 

5534 


JMP X 

ENOOP 

1036 






1039 






1040 






1091 

11765 

3223 




1042 

11766 

2040 




1043 

11767 

2200 




1044 

11770 

1531 




1045 

11771 

0377 




1046 

11772 

1520 




1047 

11773 

1521 




1040 

11774 

2000 




1049 

11775 

7400 




1050 

11776 

1506 




1051 

11777 

2014 




1052 


2000 


PAGE 



PAL8-V9Q §9/11/75 FACE 23 


/RETURN GC 


/ ICS/UDC HANDLER V2 FOR RTS-8 V2 


PAL8-V9D 09/11/75 PAGE 24 


1053 

12000 

4240 

ECNTR, 

JMS 

CNTRST 


1054 

12001 

6002 


ZOF 



1055 

12002 

3131 


OCA 

T2 


1056 

12003 

1777 


TAO I 

(CHANNO 


1057 

12004 

6365 


UDLA 



1058 

12005 

1131 


TAO 

T2 

/INXT VALUE 

1059 

12006 

6367 


UDLD 



1060 

12007 

6363 


UDLA 


/REENABLE COUNTER 

1061 

12010 

6001 


XON 



1062 

12011 

4776 


JMS I 

(ARG2 

/GET RELOAD XNFO 

1063 

12012 

3532 


OCA X 

AT2 


1064 

12013 

2132 


ISZ 

AT2 


1065 

12014 

4776 

GETFlG, 

JMS X 

(ARG2 

/GET TA8K NO, 

1066 

12015 

3532 


OCA I 

ATS 


1067 

12016 

1532 


TAO X 

ATS 


1068 

12017 

7710 


SPA CLA 



1069 

12020 

5225 


JMP 

EVFLGQ 


1070 

12021 

2132 


ISZ 

AT2 

/RUN OR DERAIL 

1071 

12022 

4776 


JMS I 

CARG2 


1072 

12023 

3532 


DCA I 

ATS 

/A0DRE8S 

1073 

12024 

5534 


JMP X 

ENOOP 


1074 







1075 

12025 

1532 

EVFLGQ, 

TAD I 

AT2 

/CHECK FOR ONCE ONLY 

1076 

12026 

0375 


AND 

(400 


1077 

12027 

3532 


OCA X 

AT 2 


1078 

12030 

1774 


TAO I 

(MSGCDP 

/NEED FIELD AT DISPATCH TIME 

1079 

12031 

0373 


AND 

(77 

/MUST PRESERVE LO 3 BITS AS 0 

1080 

12032 

1532 


TAO X 

AT2 


1081 

12033 

3532 


OCA I 

ATS 

/HI SfPART OF CDF 

1082 

12034 

2132 


xsz 

ATS 


1083 

12035 

1772 


TAO X 

(SAVADR 

/NEED PTR TO EVENT FLAG 

1084 

12036 

3532 


OCA X 

AT2 


1085 

12037 

5537 


JMP I 

MORE 10 


1086 







1087 

12040 

0000 

CNTR3T, 

0 



1088 

12041 

4776 


JMS X 

(ARG2 


1089 

12042 

4246 


JMS 

COUNCK 


1090 

12043 

3132 


OCA 

AT2 


1091 

12044 

4776 


JMS I 

( ARG2 

/INIT VALUE 

1092 

12045 

5640 


JMP I 

CNTRST 


1093 








410 



/XCS/UDC HANDLER V2 FOR RT8»8 V2 


PALS«V9D 09/11/79 FA6C 20 


fe 


1094 

12046 0000 

COUNCK, 0 


1095 

12047 4771 

JMS I 

(MA8CHK 

1096 

12050 7106 

CLL RTL 


1097 

12051 7410 

SNL 


1098 

12052 5770 

JMP I 

(BA06C 

1099 

12053 7100 

CLL 


1100 

12054 1367 

TAO 

(2000 

1101 

12055 7630 

SZL CLA 


1102 

11056 5770 

JMP I 

(BAOBC 

1103 

12057 4766 

JMS I 

(LIMCHK 

1104 

12060 7761 

•FCTRaNCNTR 

1105 

12061 0001 

NCNTR 


1106 

12062 1130 

TAD 

Ti 

1107 

12063 7104 

RAL CLL 


1108 

12064 1130 

TAO 

Ti 

1109 

12065 1365 

TAO 

(CNTTBL 

1110 

12066 5646 

JMP X 

COUNCK 

1111 





/ADDR IN ACi RETURN! W COUNTER T0L FTR 


/4-6 ONLY 


/*3 


411 


/ICS/UDC HANDIER V2 FOR RTS-8 V2 PAL8-V9D 99/11/79 FAOE 2* 
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U3ERWT 

145# 










WAITE 

124# 










WAITM 

118# 

401 









ZROTWO 

733 

739# 










*10761 <159 

*10762 442 

*10763 440 

*10764 439 

*10765 437 

*10766 43b 438 

*10767 424 

*10770 422 

110771 418 

*10772 39b 


421 


*10773 

393 



*10774 

391 



*10775 

371 



*10776 

366 



j .10777 

367 

370 


j . 11157 

641 



j .11160 

639 



*11161 

635 



*11162 

623 



*11163 

615 



*11164 

614 



*11165 

578 



*11166 

577 



*11167 

568 

612 


*11170 

563 



*11171 

556 



*11172 

549 



*11173 

540 



*11174 

536 



*11175 

523 



*11176 

522 



*11177 

497 



*11360 

756 



*11361 

754 



*11362 

750 



111363 

740 



*11364 

730 

747 


*11365 

727 



*11366 

725 



*11367 

769 



111370 

699 

751 


*11371 

695 



*11372 

692 



*11373 

686 



*11374 

687 



*11375 

676 



111376 

674 



*11377 

666 

718 


*11565 

908 



*11566 

901 



*11567 

693 



*11570 

833 



*11571 

829 



*11572 

815 



111573 

012 



*11574 

811 



111575 

800 

666 


111576 

798 



*11577 

786 



*11765 

1620 



*11766 

1010 



*11767 

997 



*11770 

901 



*11771 

976 



*11772 

970 

974 


*11773 

940 

957 

959 

*11774 

936 



*11775 

934 

1029 


*11776 

931 

1017 

1024 

*11777 

928 




422 







.*12156 

1191 


.*12157 

1170 


.*12160 

1159 


.*12161 

1144 


.*12162 

1143 


.*12163 

1142 


.*12164 

1123 


^12165 

1109 


.*12166 

1103 

1164 

112167 

1100 


112170 

1096 

1102 

112171 

1095 

1157 

.4.12172 

1083 


112173 

1079 


.*12174 

1078 

1132 

.*12175 

1076 


.*12176 

1062 

1065 

.*12177 

1056 

1138 


leas i 09 i m2 iu« 


V3 
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/PARAMETERS for RTS-8 TASKS (VERSION PAL8-V9D 09/11/75 RACE 1 


1 

2 

3 

a 

5 

6 
7 
6 
9 

10 

11 

12 

13 

U 

15 

16 
17 
16 

19 

20 
21 
22 
23 
zu 

25 

26 
27 
26 

29 

30 

31 

32 

33 

34 

35 

36 

37 
36 

39 

40 

41 

42 

43 

44 


/PARAMETERS FOR RTS«8 TASKS (VERSION 2) 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT (C) 1974,1975 BY DIGITAL EQUIPMENT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
/AND SHOULO NOT BE CONSTRUED AS A COMMITMENT SV DIGITAL EQUIPMENT 
/CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS OOCUMENT, 

/ 

/THE SOFTWARE DESCRIBED IN THIS OOCUMENT IS FURNISHED TO THE PURCHASER 
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM ANO CAN BE COPIED 
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL, 

/ 

/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 

/DIGITAL. 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 
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/PARAMETERS FOR RTS'S TASKS 


(VERSION PALG'V9D 09/U/75 PACE I 




45 

44 

47 

48 

49 

50 

51 

52 
5J 

54 

55 

56 

57 

58 
56 
60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 
Ti 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 


/RTSS V2 EXEC PARAMETERS • EDITED BY USER 

•011 POPSEfi 
•000 POP1IV0 
0001 EAE'i 
0001 PNRPAl«l 
0030 HGHFLDR30 
0023 NTASK8P2J 
0001 CHECKPTil 
0000 PARTNSiB 

/(THE N PARTITIONS ARE NUM0ERED FROM 0 TO N«l> 
/COMMON TASK NUMBERS • EDITED SY USER 

/IT IS ADVISABLE TO DEFINE ALL TASKS HERE, NAMES GIVEN BELOW 
/ARE USEO BY SOME SYSTEM TASKS ANO SHOULD 0E DELETED FROM THIS 
/LIST IF THE CORRESPONDING TASK IS NOT INCLUDED IN THE SYSTEM 

0001 CLOCKfl 
0002 PWRFat 
0003 TTYi3 
0004 LPT«4 
0005 MCR*5 
0006 LTAi6 
0007 DTA»7 
0021 SWAPPERR21 
0010 RK0P10 
0011 RF00PU 
0012 0F32412 

0013 CSA-13 
0014 CSAFP14 
0016 ICS'16 
0017 RXSA«17 
0023 OS0RNTA8KS 
0020 OSIM20 

/SOFTWARE PARAMETERS • EDITED BY USER 
IFDEF 088 « 


0002 

0SFLDS-2 


0030 

OSKBDV*30 


0031 

0STT0V«31 


0010 

0SSYSDPRK6 


0004 

03PIIL«4 



IFDEF 

MCR 

0001 

MCRSYS-1 



IFDEF 

CLOCK 

0000 

CLKTYPiB 


0020 

CLKQLN«20 

DECIMAL 


0170 

HERTZ«120 


0074 

8HERTZ*60 

OCTAL 
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/PARAMETERS FOR RT3"S TASKS (VERSION PAL0-V9D 09/11/75 PAGE 2*1 

100 > 

101 IFOEF SWAPPER « 

102 0010 SYSaRKS 

103 0000 3UNXT*0 

104 > 



42f> 




/PARAMETERS FOR RTS>S TASKS 


(VERSION PALB*V9D 09/11/75 PACE 3 


107 

7344 

AC7776P 

CLL S’ 

IBS 

7346 

AC7775* 

CLL S' 

IBS 

7336 

AC4000* 

CLA S 

1 IB 

7358 

AC3777« 

CLL S' 

111 

7332 

AC2000P 

CLA S’ 

112 

7326 

AC6062« 

CLA S' 

113 




114 


/MONITOR CALL 

115 




116 

4628 

CAL* 

JMS 

117 

5424 

POSTDS* 

JMP I 

118 

4425 

WAITM* 

JMS I 

119 




12B 




121 




122 

0866 

SENDS 

6 

123 

8661 

RECEIVp 

1 

124 

6062 

WAlTEi 

2 

123 

6663 

RUN* 

3 

126 

6604 

SUSPND* 

4 

127 

0669 

POST* 

5 

128 

6666 

SKPINS- 

6 

129 

6667 

DERAILl 

7 

130 

6616 

SLKARG* 

10 

131 

8811 

SENOW* 

11 

132 

6612 

UNBARS* 

12 

133 

4660 

FREE- 

4060 

134 




135 



IFDEF 

136 




137 




138 


/TASK STATUS 1 

139 




140 

4006 

NONRWTp 

4066 

141 

2006 

EFWT* 

2000 

1«2 

1660 

RUNWT* 

1000 

143 

0400 

8WPWT• 

0400 

144 

0200 

EORMWT* 

0200 

145 

6160 

USERWT■ 

0160 

146 

0040 

ENABWT* 

0040 

147 

0020 

MSGWT* 

0026 

148 

0616 

NETWTp 

0016 

149 

0061 

DNEWTP 

0001 


20 /CALL THE EXECUTIVE 

14 /DISMISS AN INTERRUPT 

25 /MAIT POR MULTIPLE EVENTS 

/NOTEI "**• MEANS CRITICAL VALUE MAY NOT 

/BE CNAN6E0 WITHOUT MOOIFYING SYSTEM CODE!) 

/SEND MESSAGE 

/RECEIVE MESSAGE 

/WAIT FOR EVENT FLAG 

/CONTINUE TASK EXECUTION 

/SUSPEND TASK EXECUTION 

/POST AN EVENT FLAG 

/INSERT CODE INTO INTERRUPT SKIP CHAIN 
/INITIATE END-ACTION 

/BLOCK TASK FOR REASON SPECIFIED IN ARG 
/SEND MESSASE AND WAIT 

/UNBLOCK TASK FOR REASON SPECIFIED IN ARG 
/••FREE PARTITION 

OC <A0«6fD0*lf0lP2fGC«3fECP4fRC*5 

DCwGfECTtTfCSillfOCTilIfAI*lt» 


/••NONRESIDENT TASK WAIT 
/EVENT FLAG WAIT 
/SCHEDULE WAIT 
/••SWAPPER WAIT 
/EVENT FLAG OR HESSAGE WAIT 
/USER SPECIFIED WAIT 
/ENABLE WAIT 
/MESSAGE WAIT 

/NETWORK WAIT (RESERVED FOR POSSIBLE FUTURE USE) 
/••DOES NOT EXIST WAIT 
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/PARAMETERS 

FOR RTS«S TASKS 

(VERSION PAL8-V9D 

69/11/75 PAGE 4 

150 


/SYSTEM 

LOCATIONS 1 


151 





152 

1176 

MSGTBL* 

1200*2 

/TASK MESSAGE TABLE 

153 

1244 

TSTABLP NTA8KS*2"2*MS6TBL«4 

/TASK STATE TABLE • HOLDS 

154 




/TASK LINKfUMfDFflFfPCrAC 

153 

1367 

TFTABL* 

NTASK6*2”4*TSTABL*1 

/TASK FLAGS TABLE • HOLDS 

156 




/TASK STATUS FLAGS 

157 



IFDEF SWAPPER « 


158 

1414 

RE8T0LP 

TFTABLPNTASKSP2 

/RESIDENCY TABLE 

159 

1426 

PARTBL* 

NTASKS*SWAPPER"2*REST8L*3B7774 /PARTITION TABLE 

160 

0043 

COMMAND-43 

/SWAPPER commano 1 

161 



> 


162 





163 

0633 

TSWFLG* 

35 /TASK SW INHIBIT 

FLAG IN FIELD 6 

164 

0036 

TOOL* 

36 /LOW ORDER TIME 

OF SAY IN FIELD 0 

163 

0637 

TODH* 

37 /HIGH ORDER TIME 

OF OAV IN FIELD 6 

166 

0040 

DATE* 

46 /OATE IN 088 FORMAT IN FIELD 0 

167 

6041 

MCREF* 

41 /NCR START EVENT 

FLAG IN FIELD 0 

168 
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/PARAMETERS FOR RTS*8 TASKS 




169 



/TASK 

TABLE SETUP « "TASK", "CUR 1 

170 

171 

172 



/MUST 

BE OEFINED BY TASKI 


1200 


*TASK*2*MSGTBL 


173 

01200 

0000 


ZBLOCK 2 

/MESSAGE 

174 


1250 


*TASK»4*TSTABL 


175 

01250 

0000 


CURX10+CUR 

/INITIAL 

176 

01251 

2600 


START 


177 

01252 

0000 


0 

/INITIAL 

178 


1370 


*TA8K*TFTABL 


179 

01370 

0000 


INI WT 



(VERSION PAL8»V9D 09/11/75 PAGE 5 


"INIWT", AND "START" 
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/CLOCK HANOLER FOR RTSS V2 


PA18.V90 19/11/75 PAGE 6 


180 

1»1 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 
223 


/CLOCK HANOLER FOR RT88 V2 8/30/74 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/COPYRIGHT (C) 1974,1975 »Y DIGITAL EQUIPMENT CORPORATION 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/THE INFORMATION IN THI8 DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
/CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT, 

/THE SOFTWARE DESCRIBED IN THIS OOCUMENT IS FURNISHED TO THE PURCHASER 
/UNOER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL, 

/ 

/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY POR THE USE 
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
/DIGITAL, 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 





/CLOCK HANDLER FOR RTS! VI 


PAL0aV*O 95/11/75 RASE 7 


224 

225 
22 * 

227 

228 
22 * 

250 

231 

232 

233 
254 
235 
23 * 

237 

238 

239 
241 

241 

242 
245 

244 

245 
24* 

247 

248 
24* 

251 

251 

252 

253 

254 

255 
25* 


/THE RTSaS CLOCK HANDLER ACCEPTS MESSAGES FROM THE USER AND INSERTS 
/ENTRIES INTO A CLOCK QUEUE, AS ENTRIES IN THE CLOCK QUEUE BECOME 
/DUB, THEY ARC REMOVED FROM THE QUEUE ANS THE REQUEST XSS OCCOOEO 
/AND EXECUTED, 


/THE CLOCK HANDLER MUST RUN IN FIELD 9 AS XT XS TREATED SPECIALLY 
/BY THE INTERRUPT CODE IN RTSaS 

/THE FORHAT OF CLOCK HESSAOES ARE I 


/WORD I 
/WORDS 2-3 
/WORD 4 
/ BITS 0-2 

/ 

/ 

/ 

/ 

/ 5,*, 

/ 

/ BITS Sail 

/WORD 5 
/WORD * 

/WORDS 7aS(OPT) 


USES AS EVENT FLAB FOR MCS8ABC 

USES BY RTSaS 

COMMANO WORD a BITS AREI 


FUNCTIONI 

B a SET EVENT FLAB AFTER TIMER INTERVAL 

1 • RUN SPECIFIER TASK AFTER INTERVAL 

2 a DERAIL SPECXXFIED TASK AFTER INTERVAL 

3 a RUN SPEC, TASK PERIODICALLY AFTER INTERVAL 
OR 7 a CANCEL ALL TIMED REQUESTS FOR SPECIFIED TASK 


SPECIFY TASK a B MEANS TASK IS SENOINB TASK 
HIGH ORDER OF TINE (IN TICKS) 

LOW ORDER OF TIME 

DERAIL ABORESS OR RESCHEDULE PERIOO 


/FORMAT OF CLOCK QUEUE ENTRY! 


/WORD 1 
/WORD 2 AND 3 

/ 

/WORD 4 
/WORD 5 AND 6 


POINTER TO NEXT ENTRY (B IF LAST) 

NUMBER OF TICKS FROM PREY ENTRY UNTIL THIS ONE a 
NUMBER IS negative, LOW ORDER IN WORO 2 
COMMAND WORD (FROM MESSAGE) 

WOROS 7 AND S OF MESSABE (AODR OF HERBAGE IF FNafl) 
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/CLOCK HANOLER FOR RTS8 V2 PAL8aV*D G*/lt/7S PAGE 8 


257 


/THIS CLOCK HANDLER WILL RUN ON MANY HARDWARE CONFIGURATIONS 

258 


/THE PARAMETER 

"CLKTYP" CONTROLS THE CONFIGURATION 

25* 


/legal 

VALUES OF CLKTYP ARE* 

2*0 

2*1 


/ 

0 

DKSEA LINE CLOCK, DKSEC CRYSTAL CLOCK 

262 


/ 

t 

KW12A PROGRAMMABLE CLOCK 

263 


/ 

2 

POP 8/A CLOCK (INCLUDED ON OPTION BOARD 1 OF P0P8A) 

264 


/ 

3 

0K8EP PROGRAMMABLE CLOCK 

265 


/ 4,6, 

IB, ETC 

USERaDEFINEO CLOCK TYPES 

266 





267 


/VARIOUS CLOCK 

IOT DEFINITIONS! 

268 





26* 



IFZERO 

CLKTYP * 

270 

6133 

CLSKi 

6133 


271 

6131 

CLEX» 

6131 


272 

*132 

CLOI ■ 

6132 


273 



» 


274 



IFNZRO 

CLKTYP*! « /KW12 AND DK8EP IOT*S 

275 


clze* 

6130 

/DK8EP ONLY! 

27* 


CLSK* 

6131 


277 


ClLR* 

*132 

/CALLED CLDE ON DK8EP 

278 


CLAB- 

*133 


27* 


CLENa 

6134 


280 


CLSAa 

6135 


281 



> 


282 



IFZERO 

CLKTYPa2 * 

283 


CLEN* 

*135 

/POP 8/A CLOCK INTERRUPT ENABLE 

284 


CLCL- 

*136 

/POP 8/A CLOCK FLAG CLEAR 

2*5 


CLSK* 

*137 

/POP 8/A CLOCK SKIP 

286 



> 


287 

2 88 



IFNZRO 

CLKTYP81 4HERTZ* 1750* /FORCE 0K8EP,KW12 TO 1 KHZ 

28* 





2*0 

0002 

TICKS* 

HERTZX8HERTZ 

2*1 

2*2 



IFNZRO 

TICKS‘8HERTZaHERTZ 4RATERR,*.ERR0RJ> 

2*3 



IFZERO 

3HERTZ«3B0*4B00 <TODERR, 4 .ERROR J .> 

2*4 





2*5 


/CLOCK 

TASK PAAMETERSI 

2** 





2*7 

0001 

TASK* 

CLOCK 


2*8 

0000 

INIWT* 

0 


2** 

0000 

CUR* 

0 

/*• MUST RUN IN FIELD 0! •« 

300 





301 

0000 


field 

0 

302 

0010 


*10 

/AUTO XR • NOaONE ELSE SHOULD USE! 

303 

00010 0000 

clkxr, 

B 

/MARK XR USED ON BITMAP 
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/CLOCK HANDLER FOR RTSS V2 


PAL8-V90 09/11/75 FADE 9 


304 

305 

306 

307 
301 
309 


/THIS IS THE CLOCK QUEUE CREATOR • IT IS INVOKED WHEN THE CODE 
/AT "CIKLF" NOTICES THAT THE INFUT HE8SA0E QUEUE IS NON-EMPTY, 


IFNDEF SHAFFER « 
ENDEXC* NTASK8*1*7♦1800 


310 




IFDEF 

SWAPPER 

311 


2200 


ENDEXCf 

PARTNS»< 

312 




> 


313 


2200 


•ENDEXC 


314 


2200 


PAGE 


315 






316 

02200 

4020 

GETMSG# 

CAL 


317 

02201 

0001 


RECEIV 


318 

02202 

0000 

MAOOR# 

0 


319 

02203 

3204 


OCA 

MSGCDF 

320 



XTRAI# 



321 

02204 

7402 

MSGCDF# 

HLT 


322 

02205 

7346 


AC7775 


323 

02206 

1202 


TAD 

MADOR 

324 

82207 

3371 


DCA 

XTRAI 

325 

02210 

1602 


TAO X 

MADOR 

326 

02211 

0377 


ANO 

(177 

327 

02212 

7650 


SNA CLA 


32S 

02213 

1771 


TAD I 

XTRAI 

329 

02214 

0377 


ANO 

(177 

330 

02215 

1602 


TAO I 

MADOR 

331 

02216 

3372 


OCA 

CLKCMD 

332 

02217 

1204 


TAD 

M8GCOF 

333 

02220 

3245 


DCA 

CT 

334 

02221 

1202 


TAO 

MADDR 

335 

02222 

3010 


DCA 

CLKXR 

336 

02223 

1410 


TAD I 

CLKXR 

337 

02224 

3366 


OCA 

TH 

331 

02225 

1416 


TAD I 

CLKXR 

339 

02226 

7450 


SNA 


340 

02227 

7001 


I AC 


341 

02230 

3367 


DCA 

TL 

342 

02231 

1372 


TAO 

CLKCMD 

343 

02232 

7006 


RTL 


344 

02233 

7720 


SNL SMA 

CLA 

345 

02234 

5246 


JMP 

NOIMEF 

346 

02235 

1410 


TAD I 

CLKXR 

347 

02236 

3204 


DCA 

XTRAI 

348 

02237 

1410 


TAD I 

CLKXR 

349 

02240 

3371 


DCA 

XTRAI 

350 

02241 

7346 


AC7775 


351 

02242 

1202 


TAD 

MADOR 

352 

02243 

4020 


CAL 


353 

02244 

0005 


POST 


354 

02245 

0000 

CT, 

0 


355 






356 

02246 

4250 

NOIMEF, 

JMS 

CLQXNS 

357 

02247 

5776 


JMP I 

(clklp 


/ORIGIN JUST ABOVE SHAFFER# IF ANY 


/ELSE JUST ABOVE EXEC TABLES 


/START LOADING IN FIRST F6 AFTER TABLES OR SHARPER 


/BET MESSAGE ADDRESS 

/CDF IS IN AC ON RETURN 

/INITIALIZED IN CASE FUNCT IS "SET E,F," 

/SET TO OF OF MESSAGE 
/8A0VE ADDRESS OF MESSAGE EVENT FLAG 
/IN XTRAI • XTRAtll ARE NOH SET UP 
/IN CASE COMMAND HAS "SET EVENT FLAG" 

/GET COMMANO 

/CHECK FOR EXPLICIT TASK ARGUMENT 
/NONE > USE SENOINS TASK 
/(MESSAGE E,F, HAY HAVE 4GS0 BIT ON) 

/SAVE CLOCK COMMANO 

/SET UP COP OF EVENT FLAG IN "POST" CALL 

/SET UP AUTO-XR FOR FETCHING ARCS 
/GET HIGH OROER INTERVAL 
/SAVE IT 

/GET LON ORDER INTERVAL 

/IF ZERO* MAKE IT 1 • THIS INTRODUCES A SMALL 
/CLT ,S25X) ERROR IN SOME INTERVALS# BUT 
/ELIMINATES THE KILLER 0 INTERVAL 
/GET COMMANO 

/CHECK FOR "SET EVENT FLAG" COMMAND 
/YES • SO DON'T SET EVENT FLAG NOH 
/GET THO MORE ARGUMENTS EVEN THOUGH HE 
/ONLY NEED THEM FOR COMMANDS 2 AND 3, 


/HE MUST FIGURE OUT HHERE THE 

/MESSAGE STARTED SINCE HE DESTROYED XTRA2 


/NOH INSERT THE MESSAGE INTO THE CLOCK QUEUE 
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/CLOCK HANDLER FOR RTSS V2 PAL8-V9D 09/11/75 PAGE 10 

358 /SEARCH THE CLOCK QUEUE TO FIND WHERE TO PUT THIS REQUEST 

359 

360 /THE REQUEST TO BE QUEUEO SHOULD BE IN THE WORDS! 


361 



/CLKCMD, 

> th# 

TL, 

XTRAI, 

362 







363 

02250 

0000 

CLQIN8# 

0 



364 

02251 

6201 


CDF 

CUR 


365 

02252 

1375 


TAO 


cclq 

366 

02253 

3370 

QSRCLP, 

DCA 


CQ 

367 

02254 

1770 


TAD 

I 

CQ 

368 

02255 

3245 


OCA 


CT 

369 

02256 

1245 


TAD 


CT 

370 

02257 

3010 


DCA 


CLKXR 

371 

02260 

1645 


TAD 

I 

CT 

372 

02261 

7100 


CLL 



373 

02262 

6002 


IOF 



374 

02263 

7650 


SNA 

CLA 


375 

02264 

5323 


JMP 


INHERE 

376 

02265 

1410 


TAD 

I 

CLKXR 

377 

02266 

1367 


TAO 


TL 

378 

02267 

3374 


OCA 


ttl 

379 

02270 

1372 


TAD 


CLKCMD 

380 

02271 

7710 


SPA 

CLA 


381 

02272 

5311 


JMP 


KILLQE 

382 

02273 

1410 


TAD 

I 

CLKXR 

383 

02274 

7450 


SNA 



384 

02275 

5306 


JMP 


NULADD 

385 

02276 

7430 


SZL 



386 

02277 

7101 


CLL 

I AC 


387 

02300 

1366 


TAD 


TH 

388 

02301 

7420 


SNL 



389 

02302 

5323 


JMP 


inhere 

390 

02303 

3366 


DCA 


TH 

391 

02304 

1374 


TAO 


TTL 

392 

02305 

3367 


DCA 


TL 

393 

01306 

6001 

NULADO# 

ION 



394 

02307 

1245 


TAD 


CT 

395 

02310 

5253 


JMP 


QSRCLP 

396 







397 

02311 

7326 

KILLQE, 

AC0002 


398 

02312 

1010 


TAD 


CLKXR 

399 

02313 

3202 


OCA 


MADDR 

400 

02314 

1602 


TAO 

I 

MADDR 

401 

02315 

7041 


CIA 



402 

02316 

1372 


TAD 


CLKCMD 

403 

02317 

0377 


AND 


(177 

404 

02320 

7650 


SNA 

CLA 


405 

02321 

3602 


OCA 

I 

MADDR 

406 

02322 

5306 


JMP 


NULADD 


XTRA2 


/GET NEXT QUEUE ENTRY 


/ACCESS BOOY OF QUEUE ENTRY WITH AUTO-XR 

/INHIBIT INTS WHILE LOOKING AT Q ENTRY 
/TO KEEP IT FROM CHANGING ON US, 

/IS IT THE TERMINAL ONEt 
/YES * INSERT HERE 


/SUBTRACT INTERVAL TO THIS QUEUED EVENT 
/IF COMMANO IS NEGATIVE# 

/THIS IS NOT A REGULAR COMMANO BUT A CANCEL - 
/CHECK WHETHER WE SHOULD CANCEL THIS Q ENTRY 
/FROM INTERVAL TO THE CURRENT REQUEST 
/WATCH FOR 0 INTERVAL - SCREWS UP LINK 
/NULL INTERVALS DON'T AFFECT SEARCH 

/ADD IN CARRY AFTER ZERO TEST 1 

/IF THE REQUEST OCCURS BEFORE THE CURRENT 
/QUEUE ENTRY# BREAK THE QUEUE HERE 

/SINCE QUEUED INTERVALS ARE CUMULATIVE# 

/USE THE UPOATED INTERVAL FROM NOW ON 
/ALLOW INTERRUPTS BETWEEN ENTRIES 

/GO TO NEXT QUEUE ENTRY 


/POINT AT COMMAND WORD OF QUEUE REQUEST 

/COMPARE TASK NUMBER IN QUEUE ENTRY COMMANO 
/TO SPECIFIED TASK 
/(ONLY 7 BITS TO COMPARE 

/wellt 

/MATCH - ZERO COMMAND WD (0 COMMAND IS NOP) 


434 






/CLOCK HANDLER FOR RTS8 V2 
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407 /FOUND WHERE IT 60E8 • NON PUT XT THERE 


408 







409 

02323 

3202 

INHERE, 

DCA 


HADDR 

410 

02324 

1372 


TAD 


CLKCMO 

411 

02323 

7710 


SPA 

CLA 


412 

02326 

5776 


JMP 

I 

(CLKLP 

413 

02327 

1373 


TAD 


CLP 

414 

02330 

3770 


OCA 

X 

CQ 

415 

02331 

7240 


STA 



416 

02332 

1373 


TAD 


CLF 

417 

02333 

3010 


OCA 


CLKXR 

418 

02334 

1773 


TAD 

I 

CLF 

419 

02335 

3373 


DCA 


CLF 

420 

02336 

1245 


TAO 


CT 

421 

02337 

3410 


OCA 

I 

CLKXR 

422 

02340 

1367 


TAO 


TL 

423 

02341 

7141 


CIA 

CLL 


424 

02342 

3410 


DCA 

X 

CLKXR 

423 

02343 

7024 


CML 

RAL 


426 

02344 

6001 


ION 



427 

02343 

1366 


TAO 


TH 

428 

02346 

7041 


CIA 



429 

02347 

3410 


OCA 

X 

CLKXR 

430 

02350 

1372 


TAO 


CLKCMO 

431 

02331 

3410 


OCA 

X 

CLKXR 

432 

02352 

1204 


TAD 


XTRA1 

433 

02353 

3410 


OCA 

X 

CLKXR 

434 

02334 

1371 


TAO 


XTRAI 

435 

02333 

3410 


OCA 

X 

CLKXR 

436 

02336 

2245 


ISZ 


CT 

437 

02357 

1374 


TAD 


TTL 

438 

02360 

3645 


DCA 

I 

CT 

439 

02361 

2243 


ISZ 


CT 

440 

02362 

1202 


TAD 


MADOR 

441 

02363 

3645 


DCA 

I 

CT 

442 

02364 

5630 


JMP 

I 

CLQXNS 

443 







444 

02365 

0000 

ZROENT, 

0 



445 

02366 

0000 

TH, 

0 



446 

02367 

0000 

TL» 

0 



447 

02370 

0000 

CQ, 

0 



448 

02371 

0000 

XTRA2, 

0 



449 

02372 

0000 

CLKCMO, 

0 



450 

02373 

2600 

CLP» 

BEGPRE 


431 

02374 

0000 

TTL, 

0 



452 

02373 

2551 





453 

02376 

2403 





454 

02377 

0177 





455 


2400 


PAGE 



/SAVE HX6H OROER OF DIFFERENCE 

/IF THIS NAS A CANCEL COMMAND, 

/NS ARC DONE • DON'T INSERT ANYTHING* 

/LINK THE FIRST ENTRY ON THE FREE LIST 
/INTO THE QUEUE AT THIS POINT 
/USE XR TO SET UP NEW ENTRY 

/REMOVE FREE LIST ENTRY 
/FROM FREE LIST 

/COMPLETE THE INSERTION BY SCTTXNQ UP 
/THE POINTER TO THE NEXT QUEUE ENTRY 
/PUT THE NEGATIVE OF THE INTERVAL 
/UNTIL THIS ENTRY IS EXECUTABLE INTO 
/THE NEN QUEUE ENTRY, LOM OROER 
/NORO FIRST (FOR EASY INCREMENTING) 
/FINISHED OBL«PREC ARITHMETIC • ALLOW INT8 


/PUT COMMAND HORO IN QUEUE ENTRY 
/ANO EXTRA WORDS FOR CQMMANO 


/NOW UPDATE THE FOLLOWING ENTRY 
/TO REFLECT THE REDUCED NUMBER 
/OF TICKS BETWEEN ENTRIES 

/*» HE MAY BE "UPDATING" ZROENT ** 

/*• WE NEED TWO SCRATCH LOCO AFTER IROENT #• 
/RETURN 

/PERMANENT FINAL ENTRY IN CLOCK QUEUE 
/TH ANO TL ALSO SERVE AS THE FIRST TWO 
/WORDS OF "ZROENT" 


/INITIALIZED TO BEGINNING OF FREE LIST 


433 
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45b 

457 

438 

459 

460 

461 

462 

463 

464 
463 

466 

467 

468 

469 

470 

471 

472 

473 

474 
473 

476 

477 

478 

479 

480 

481 


02400 4001 


/MAIN CLOCK HANDLER LOOP • BCE IF ANYTHING TO DO 
CLKEF, 4000*TASK /SIGNIFICANT TICK EVENT FLAG 


02401 

4425 

CLKWT, 

02402 

0200 


02403 

6002 

CLKLP 

02404 

1200 


02405 

7650 


02406 

3216 


02407 

1777 


02410 

7640 


02411 

1776 


02412 

7650 


02413 

5201 


02414 

6001 


02415 

5773 



WAXTH 

EORMWT 

IOF 

TAD 

SNA CLA 
JMP 
TAD I 
SZA CLA 
TAD 1 
SNA CLA 
JMP 
ION 
JMP I 


/SPECIAL MONITOR ENTRY TO WAIT 
/FOR EVENT FLAG OR MESSAGE, 
/INTERRUPTS OFF FOR OELXCATE CODE! 

CLKEF 

/SIGNIFICANT TXCKT 
GETICK /YES • PROCESS 
(CLF 

/ANY ROOM IN CLOCK QUEUE? 
(TASK"2+MSGTBL /YES • CONSIDER MESSAGES 
/CAN WE TAKE A MESSAGE? 

CLKWT /NO • GO INTO EORMWT 

/YES • RESTORE INTERRUPTS 
(GCTMSG /AND GO RECEIVE MESSAQE 


02416 1374 

02417 3200 

02420 6001 

02421 1330 

02422 3010 

02423 3750 

02424 2410 

02425 3203 


GETICK, TAD 
OCA 
ION 
TAD 
DCA 
DC A I 
ISZ I 
JMP 


(4000+TASK /RESET EVENT FLAG 

CLKEF /TO "WAITING" STATE 

/TURN INTERRUPTS BACK ON 

CLIPTR /*• GET POINTER FROM INTERRUPT ROUTINE ** 
CLKXR /USE AUTO-XR TO ACCESS HIGH-ORDER WORD 
CLIPTR /**FIXES QUEUE CREATOR BUG** 

CLKXR /OK, WE GOT A NIBBLE • BUMP HIGH-ORDER WORD 
CLKLP /FALSE ALARM (SIGH) 


436 



/CLOCK HANDLER FOR RTSS V| 
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all 



/ 

BBBB 

000 N 

N GGGQG 

413 



/ 

0 0 

0 0 NN 

1 N G 

414 



/ 

BBBB 

0 0 N 

NN 6 6G • THE CLOCK HAS STRUCK 1 

415 



/ 

8 0 

DON 

NN 0 G 

414 



/ 

BBBB 

000 N 

N GGQGG 

487 







488 

•2426 

1751 

CLKOV, 

TAD I 

CLQ 

/REMOVE THE FIRST ENTRY FROM THE CLOCK QUEUE 

419 

• 2427 

3276 


OCA 

CLKTMP 

/AND PLACE XT ON THE FREE LIST, 

498 

•2450 

1777 


TAD X 

cclf 

/THXI ALLOW! US TO PLAY WITH IT TO OUR 

491 

02431 

3751 


OCA X 

CLQ 

/HEART! CONTENT WITHOUT MISSING ANY TICKS 

492 

■ 2432 

1351 


TAD 

CLQ 


493 

82433 

3777 


OCA X 

CCLF 


494 

• 2454 

1276 


TAO 

CLKTMP 


495 

02435 

3351 


OCA 

CLQ 


496 

02436 

1410 


TAO X 

CLKXR 


497 

02437 

7450 


SNA 


/CHECK FOR CANCELLEO REQUEST 

498 

• 2440 

5305 


JMP 

FZXQ 

/YES • JUST DELETE FROM QUEUE 

499 

• 2441 

3773 


OCA X 

CCLKCMD 


500 

•2442 

1773 


TAO I 

CCLKCMD 


511 

02443 

7006 


RTL 


/SET UP TO TEST BITS 1 AND 2 OF CMD WO 

502 

02444 

7700 


SMA CLA 

/CHECK FOR COMMANO 1 OR 3 

503 

• 2445 

5266 


JMR 

NOTRUN 

/NO • 0 OR 2, 

504 

02446 

7420 


SNL 


/WHICH ONET 

505 

02447 

5261 


JMR 

NORSCO 

/I • STRAIGHT RUN COMMAND 

506 

•2450 

1410 


TAD I 

CLKXR 


507 

02451 

3772 


OCA I 

(TH 

/QET RESCHEDULE INTERVAL 

508 

02452 

1410 


TAO X 

CLKXR 


509 

02453 

3771 


OCA I 

CTL 


510 

02454 

1772 


TAD I 

(TH 


511 

02455 

3770 


OCA I 

(XTRA1 

/USE REACHED INTERVAL AS NEW SCHEDULE 

512 

02456 

1771 


TAO I 

ctl 

/AND RESCHEDULE INTERVAL 

513 

02457 

3767 


OCA I 

(XTRA2 


514 

02460 

4766 


JM3 I 

cclqxns 

/INSERT THE NEW REQUEST IN THE CLOCK QUEUE 

515 

02461 

1773 

NORSCO, 

TAO X 

CCLKCMD 

/GET TASK NUMBER 

516 

02462 

•365 


AND 

C177 

/OUT OF COMMAND WORD 

517 

• 2463 

4020 


CAL 



518 

02464 

• 003 


RUN 


/AND RUN THE JOB NOW, 

519 

02465 

5305 


JMP 

FXXQ 

/CLEAN UP THE QUEUE ENTRY 


/CLOCK 

HANDLER 

1 FOR 

RTS8 V2 


PA16»V9D 09/11/75 PAGE 14 

520 



/TEST FOR DERAIL 

, REQUEST 

521 

522 

02466 

1410 

NOTRUN, 

, TAO I 

CLKXR 

/LOAD ARGUMENT INTO AC 

523 

02467 

7420 


SNL 


/DERAIL OR EVENT.PLAG REQUEST? 

524 

02470 

5300 


JMP 

SETEF 

/EVENT FLAG 

525 

02471 

3276 


OCA 

DRLAOR 

/SAVE DERAIL SUBROUTINE ADDRESS 

526 

02472 

1773 


TAD I 

(CLKCMD 


527 

02473 

0365 


AND 

(177 

/GET TASK NUMBER FROM COMMANO WORD 

528 

02474 

4020 


CAL 



529 

02475 

0007 


DERAIL 


/DERAIL THE TASK 

530 



CLKTMP, 

t 



531 

02476 

0000 

DRLAOR 

, 0 



532 

02477 

5305 


JMP 

FI XQ 


533 







53a 

• 2500 

3304 

3ETEF, 

OCA 

EFCOF 

/SAVE DATA FIELD OF EVENT FLAG 

535 

02501 

1410 


TAO I 

CLKXR 

/GET ADDRESS OF EVENT FLAG 

536 

02502 

4020 


CAL 



537 

02503 

0S05 


POST 


/POST THE EVENT FLAG ASSOCIATED 

538 

02504 

0000 

EFCDF, 

0 


/WITH THIS TIMER REQUEST 

539 







540 

02505 

7201 

FXXQ, 

CLA IAC 



541 

02506 

1351 


TAD 

CLQ 


542 

02507 

3010 


OCA 

CLKXR 

/XT IS possible for the interval 

543 

02510 

1410 


TAD I 

CLKXR 

/BETWEEN EVENTS ON THE QUEUE TO BE 0 * 

544 

0251 1 

7650 


SNA CLA 


/THIS MEANS THE EVENTS COME UP 8XMULTANE0USLV 

545 

02512 

1751 


TAO I 

CLQ 

/WE MUST CHECK FOR SIMULTANEITY HERE 

546 

02513 

7650 


SNA CLA 


/(WATCHING OUT FOR THE END OF THE QUEUED 

547 

02514 

5203 


JMP 

CLKLP 

/IF NONE, GO WAIT FOR THE NEXT TICK 

548 

02515 

5226 


JMP 

CLKOV 

/SIMULTANEOUS REQUEST ■ GO PROCESS IT 


438 
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549 

550 

551 
551 
555 

554 

555 

556 

557 

558 

559 

560 

561 

562 

56] 

564 

565 

566 

567 

568 

569 

570 

571 

572 

57] 

574 

575 

576 

577 

578 

579 

580 

581 

563 
585 

584 

585 

586 
567 
586 

589 

590 

591 

592 
59] 


/CLOCK INTERRUPT ROUTINE 

/INSERT CONOITIONALIZCO FLAG CLEARS FOR USER-DEFINED CLOCK HERE, 


02516 2352 

01517 5424 

02520 1364 

02521 3351 


CLKXNT' IFNZRO CLKTVR61 «CLSA> /CLEAR KN12/0K8EP FLAB 

IFZERO CLKTYPIt « 

XFZERO CLKTYP-2 < 

CLCL /CLEAR POP 6/A CLOCK FLA0 

CLA /JUST IN CA8ETT 

► 

IFNZRO TXCKS-1 < 

X8Z CLKCNT /COUNT CLOCK TICKS PER SOFTWARE TICK 

P08TD8 /UNLESS COUNT«l • THEN WHY BOTHERS 

TAD (-TICKS /RESTORE FULL COUNT 
OCA CLKCNT 


02522 7201 

02523 1351 

02524 3350 

02525 2036 

02526 5340 

02527 2037 

02530 5340 

02531 1353 

02532 3037 

02533 1354 

02534 3036 

02535 1040 

02536 1363 

02537 3040 

02540 1751 

02541 7640 

02542 2750 

02543 5424 

02544 7240 

02545 3750 

02546 1362 

02547 5424 


CLA XAC 
TAD CLQ 

OCA CLXPTR 

X8Z TOOL 

JHP CLKflT 

XSZ TODH 

JHP CLKQT 

TAO MIDNTH 

OCA TODH 

TAO MXDNTL 

OCA TOOL 

TAO DATE 

TAO (10 

OCA OATE 

CLKQT, TAO I CLQ 
8ZA CLA 

I8Z X CLXPTR 

P08TD8 

STA 

OCA X CLXPTR 
TAO (CLKEF 

POSTOS 


/*• AC HAY NOT II I HERE IF KW1I OR DK6CP ** 
/SAVE POINTER TO LOW-ORDER TICK COUNT 
/OF PXR0T QUEUE ENTRY 

/RUHR TIHE-OF-OAY 


/T.O.D, CLOCK OVERFLOW! AT HXDNXOHT • 
/WE HU8T RESET TO A SPECIAL FUDGE TO 
/ASSURE THAT IT WILL HAPPEN AGAIN 
/NEXT HXONIGHT, 


/BUHP OATE 1 DAY, THE CRUDE WAY 

/XP QUEUE IS NOT EHPTY, 

/BUHP LOW-ORDER COUNT 
/NOTHING DOING 

/••FIXES QUEUE CREATOR BUG** 

/PUT -1 BACK,,,END OF FIX 

/SET EVENT FLAG TO START OEQUEUER RUNNING 

/AS WE HAY HAVE REACHED A SIGNIFICANT TXHE 


02550 

02551 

02552 


0000 

CLXPTR, 

0 

/INTERRUPT-LEVEL 

POINTER 

2365 

CLQ, 

ZROENT 

/QUEUE INITIALLY 

EHPTY 



IFNZRO 

TICKS*1 « 


7776 

CLKCNT, 

•TICKS 




439 
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PAL6-V90 09/11/75 PAGE 16 


59« 





595 


5000 

OAYL* 

600*SHERTZ 

596 


0005 

OAYH« 

6“3HERTZX100 

597 


2361 

OAYH« 

25"3HERTZ*DAYH 

598 


2362 


IFNZRO OAVL 

599 

02553 

5416 

MIDNTH, 

• OATH 

600 

02554 

3000 

MIONTL, 

•OAYL 

601 

02562 

2400 



602 

02563 

0010 



603 

02564 

7776 



604 

02565 

0177 



605 

02566 

2250 



606 

02567 

2371 



607 

02570 

2204 



606 

02571 

2367 



609 

02572 

2366 



610 

02573 

2372 



611 

02574 

4001 



612 

02575 

2200 



613 

02576 

1200 



614 

02577 

2373 



615 


2600 


PAGE 


/THESE STATEMENTS COHPUTE THE NUMBER OF TICKS 
/IN A DAY AS A DOUBLE WORD QUANTITY 
/ • 25S600-SHERTZ 

-DAYH-OAYHM* /JUST FOR BORROW ON NEGATE 


440 



V 


1 


c 


/CLOCK HANDLER FOR RTS* V2 


616 



/CLOCK 

QUEUE FREE LIST • 

617 






61S 


•000 

EXROOM* 

ENDEXC+177!7600«l 

619 




IFNZRO 

CLKQLN*6< 

62S 




IFNZRS 

10S-EXROI 

621 




*ENDEXC 


622 




P 

P 

62) 






624 



BEOFRE, 



625 

6266S 

6002 

START, 

IOF 


626 

62661 

2040 


ISZ 

OATE 

627 

02602 

1377 


TAD 

CCLSK 

626 

02603 

3440 


OCA I 

DATE 

629 

02604 

1040 


TAD 

DATE 

631 

S260S 

1376 


TAO 

(4 

631 

02606 

3040 


OCA 

OATE 

632 

•2607 

1373 


TAO 

(CLKINT 

633 

02610 

3440 


OCA I 

OATE 

634 

02611 

6211 


CDF 

10 

635 

02612 

1774 


TAD I 

(7666 

636 

02613 

3040 


OCA 

OATE 

637 

02614 

6201 


eoF CUR 


636 

02615 

1773 


TAO I 

CMIDNTH 

639 

•2616 

3037 


OCA 

TODH 

64S 

02617 

1772 


TAO I 

(MXDNTL 

641 

02620 

3036 


OCA 

TOOL 
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ALSO INITIALIZATION COOE 


/CALCULATE ROON IN RAGE WITH EXEC TABLES 
GAMS 4 /IF QUEUE MILL FIT THERE, 

< /AS NELL At INITIALIZATION COOE, 

/THEN SAVE SOME SPACE 


/IOF WHEN MESSING WITH SKIP CHAIN!1 
/DATE CONTAINS POINTER TO CLOCK SKIP LOC -1 


/SET OS/S OATE WORD 
/SET RTS OATE FROM IT 


/SET TIME TO MIDNX8MT (AS 6000 AS ANY TIME) 


441 



/CLOCK HANOlER FOR RTSS VI 
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642 /INSERT CONDITIONALIZED INITIALIZATION COOE FOR USER-DEFINED 

643 /CLOCK HERE • MUST ENABLE INTERRUPTS AND SET RATE, 

644 


645 



IFZERO 

CLKTYR < 



644 

•2621 

6131 

CLEX 

/enable clock interrupts for DK6EA,C 


647 



P 




646 



IFZERO 

CLKTYP-3 

4 /SPECIFIC OKSEP INXT 

CODE 

649 



STA 




650 



CLZE 

/zero 

COMMANO REGISTER ON OKSEP 


651 



TAO 

(3311»4100 

/3310 « ENABLE INTS, 1 KHZ, 

MOOE 

652 



P 




653 



IFNZRO 

CLKTYPI1 

4 /COMMON OKSEP, KW12 

INIT 1 

654 



TAD 

(4100 /41S0 

■ 1 KHZ, MOOS 1 


655 



CLLR 

/LOAD 

COMMANO REGISTER 


656 



CLA 

/CLLR 

DOESN'T CLEAR AC 


657 



TAO 

(•TICKS 



630 



clab 

/SCALE 

DOWN CLOCK TO SOFTWARE RATE 


639 



CLA 

/DOES 

NOT CLEAR AC 


660 



p 




661 



IFZERO 

CLKTYP-l 

4 /SPECIFIC KW12 INIT 

COOE 

662 



TAD 

(300 /FORCE 

CLOCK BUFFER INTO COUNTER ANO 


663 



CLEN 

/ENABLE KN12 INTERRUPTS 


664 



CLA 

/THIS 

DOESN'T CLEAR AC EITHER 


665 



> 




666 



IFZERO 

CLKTYP-2 

4 /POPS/A CLOCK INIT CODE 

667 



CLA IAC 




666 



CLEN 

/enable clock interrupts 


669 



CLA 

/(JUST 

IN CASE) 


670 



p 




671 

02622 

5231 

JMR 

FREELP 





44 ? 
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/CLOCK HANDLER FOR RTSS V2 


672 

673 
679 
673 
676 


/CLOCK QUEUE INITIALIZATION • 

/THIS CODE IS WRITTEN TO SKIP EVERY SIXTH WORD SINCE XT IS 
/SETTING THESE WORDS TO QUEUE POINTERS. 

/«* NO LITERALS IN THIS CODEI *• 

( •SEGFREX6* r 6+BE6PRE+7«| /MOVE US TO THE 2ND WORD OF A 6 WO BLOCK 


/CHAIN EACH QUEUE ENTRY TO THE NEXT ONE 
/THIS LOC GETS DESTROYED BY OUR LOOP| 


677 

02623 

0000 


ZBLOCK 

.-•EGFfl 

671 





679 

02631 

1253 

FREELP, 

TAD 

FREPTR 

660 

02632 

1254 


TAD 

F6 

661 

02633 

3653 


DCA X 

FREPTR 

662 

02634 

1253 


TAO 

FREPTR 

663 

02635 

7410 


SKP 


684 

02636 

0000 


0 


665 

02637 

1255 


TAD 

FRELIM 

686 

02640 

7700 


SMA CLA 

687 

02641 

5247 


JMP 

INXXXT 

666 

02641 

1653 


TAD I 

FREPTR 

669 

02643 

7410 


8KF 


690 

62644 

0000 


0 


691 

02645 

3253 


OCA 

FREPTR 

692 

02646 

1231 


JMP 

FREELP 

693 

02647 

3659 

XNlXXTf 

DCA I 

FREPTR 

694 

02650 

6001 


ION 


695 

02651 

5656 


JMP I 

PCLKLP 

696 

02652 

0000 


0 

697 

02653 

2600 

FREPTR, 

BEGFRE 


698 

02654 

0006 

F6, 

6 


699 

02655 

5013 

FRELIM, 

13.ENDFRE 

700 

02656 

2403 

PCLKLP, 

CLKLP 


701 

02772 

2554 




702 

02773 

2553 




703 

02774 

7666 




704 

02775 

2516 




705 

02776 

0004 




706 

02777 

6133 




707 


3000 


PAGE 



70S 

709 

710 

711 

712 

713 


/DONE • END INITIALIZATION COOE 
/GET NEW QUEUE ENTRY ADDRESS 


/ZERO LAST POINTER 

/START WAITING FOR CLOCK TICKS 

/SO WE NEVER GO PAST "ENDFRE" 


IFZERO CLKQLN«6*BEGFRE», 44000 < 

ZBLOCK CLKQLN*6*BEGFRE.,*5 /*5 FOR SAFETY 

► /MAKE SPACE FOR ENTRIES IF MORE THAN II DESIRED 

3000 ENDFRE* , 

sss 


443 


/CLOCK HANDLER FOR RTSS 


AC0002 

7326 

FRELIM 

AC2000 

7332 

FREPTR 

AC3777 

7350 

F6 

AC4000 

7330 

GETICK 

AC7775 

7346 

getmsg 

AC7776 

7344 

hertz 

BEGFRE 
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